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programmes informatiques 



D AO ...sur PC 1500 



Mais oui! Un logiciel de Dessin Assiste par Ordinaleur. sur un ordi- 
nateur de poche. Le PC 1500 possede une imprimante graphique. 
pourquoi sen priver? 

D A O permel d'effeciuer le dessin da peu pres n'importe quel objet 
en 3 dimensions. II necessile un CE 150 et une extension memoire. 



Pierre MARCELLIN 



'DAD" 
20iREf1 HARCELLiN 

PIERRE 
30: REM POUR 

PC 1300 
A5:REn ====«===.= 
50:0111 ftC18):REn 
A nODIFIER SUJ 

uant le NOne^E 
DE PARAHETRES 
REPETITION 
90:REH ********** 
RENU GENERAL 
****** ******** 
100: "nENU" REST ORE 

STEXT 
118: INPUT "Liste d 
u ficfcier "Jfl* 
:TEXT : INPUT • 



CE 
200; GOTO "MENU 

taajREn ********** 

ECHELLE 

************** 

500: "ECHELLE"U=0, U 

=0, U=8, K=0: CLS 

:PR1NT "ECHELL 



520:"ECH-K=K*l: 
CURSOR 18: 
PRINT KiREAD fl 
4! IF fi*<>"R- 
GOTO AS 
530:READ A,B,C:f OR 
L=1T0 OK READ 
QiNEXT l:GOTP 
"ECH 

535:REI1 

543:"D"F0R L = 1T0 2 
:REflD fl, B, Ct 
GOSUB "HAX": 
NEXT L:GOTO "E 
CH 

515:REn 

560: I, P"READ R:F0R 
L=1T0 A: READ fl 
, B, C=GOSUB "HA 
X" s NEXT LiEOTO 

"ECU 
S65:REf1 

SeSi-'C-REflQ fti B, r, 
D,E,F,S,H, I, Ji 
GOTO "ECH 

585: REM 

600:"S"READ A, 8, C, 
D:FOR L*IT9 3: 
9<L)=a<LJ+D: 
GOSUB "nftX";8< 
LJ=B(L)-2*D: 
GOSUB "ilflX": 
NEXT HGOTO "E 
CH 



GOTO "ECH 

6151REH 

620:"F' , U=215^ClE-3 
+ABS U'flBS U): 
U=U*ABS UiWfll f 
:BEEP It PR I NT 
"Echell«i"iUi 
INPUT "Une aut- 
re ? ";fl* 

622: IF LEFT* (A*, 1 
X>"0"RETURN 

623: INPUT "Cfflmblen 
? ";fl:W=W/U*fl 
,U=fl:PRINT "Or 
tglne x="iU;" 

625: INPUT "x= r iU, 



64B: "riAX" GOSUB C*: 
X=.866*<fi-B>, Y 
*C+(fi+BV2 

660: IF X>ULET U=X 
680: JF X<ULET U=X 
700JIF YMJLET W=Y 
720:GOSUB "XY2"s 

RETURN 
?10:REI1 ********** 

* REPETITION * 

************** 
760: "REPETITION" 

READ Al, LI, Bl: 

K*="0 



EDITO 



Le SICOBest en train de seiermi 
ner. Des las de nouveaules vont 
comme chaque annee. faire leu 
apparition sur le marche. Nou: 
avons deja regu des nouveaux io- 
giciels et quelques uns seront 
dans I'hebdo des la semarne pro- 
chaine, le reste viendra dans le 
desordre d'ici la (in de lannee. 
LORICIEL nannonce pas moins 
de 50 nouveaules. nous en avons 
lesle une partie: SUPER JEEP et 
SURVIVOR pour ORIC ainsi que 
PULSAR II el ELIMINATOR pour 
THOMSON seront probablement 
dans le SOFT-PARADE du pro- 
chaine numero. Chez D et L, un 
nouvel arrive dans la distribution, 
les logictels OCEAN en trancais ; 
MISTER WIMPY et CHINESE 
JUGGLER pour Commodore, 
Oric el Spectrum et, un peu plus 
tard, le labuleux "Balle de Malch" 
deja vendu a 400.000 exemplai- 
res et N" I au hit en angleterre. 
amsi que SCRABBLE avec 
10.000 mots trancais en me- 
moire. Che2 VIFI qui vient de re- 
prendre la distribution d'lNFO- 
GRAMES el d'ANSWARE. les 
nouveaules sont aussi Ires nom- 
breuses. AIRBUS et survivor 
ont I'air in!6ressants ainsi que 
COLORCALC pouf TO7-70. Les 
sods d MCC sont egalemant a 
I'essai: DALLAS QUEST et 
BRUCE LEE a des pn'x inleres- 
sants. Erttin, un DECATLHON 
pour APPLE et COMMODORE 64 
ainsi qu'un KARATE entreront en 



lorce des que nous aurons touve 
les moyens de nous en procurer ; 
nous n'avons vu pour I'instan! 
que des copies pirates!. 

Voila la suile et la tin des repon* 
ses au questionnaire que vous 
nous avez renvoye pendant les 
vacances. Vous avez appris pas 
mal de choses sur les lecteurs de 
I'Hebdo depuis deux semaines, 
regardons maintenant le materiel 
que vous possede?- 96 % des 
lecteurs travaiiient sur du mate- 
riel qui leur appartient en plus. Us 
sont propnetaires de 
Lecleur de cassettes . . . 78 % 
Lecleur de disquettes . ...14% 

Tele ou moniieur NB 26% 

Tele ou moniieur couleur 61 % 

Impnmante ....16 % 

Modem 0.5% 

Vous avez par conire envie 
d'acheter les matenels suivants: 

Lecteur de cassette ...A % 

Lecieu' de dequeues ....31 % 

Tele ou moniieur NB 1% 

Tele ou momteur couleur .13 % 

Impnmante 24% 

Modem ....10% 

Voire avis sur HEBOOGiCiEL 3 
present, vous trouvez bon ou 
moyen {le premier poucentage 
correspond aux lecteurs qui uou- 
vent la rubrique bonne el le se- 
cond a ceux qui la Irouve 
moyenne) 

Edito 62% < 29% 

Cuncours. . 70%+ 17% 

Vole des lecteurs 56 % * 29 % 

Hipporebus 23 % + 40 % 

Programmes 77 % + 23 % 

Suite page 18 



LES CONCOURS PERMANENTS : 

10 000 francs de pnx au meilleur programme CHAOUE WOIS 
1 voyage en Cahfornie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page inteneure) 



MENU 



Fourmiliere 
Page 14 

CANON X07 Piste 

Christophe PELLETIER Page 6 

FX 702 P Linearisation 

Laurenl GRAVERET Page 5 

COMMODORE 64 Chronopolis 

P.M. GARDERES Page 8 

VIC 20 Les envahisseurs 

Philippe MACOINE Page 17 

HECTOR Parachulistes 

L.PICARNA/N.DABANEL Page 6 



Jerome DENOT 



Portraits robots 



Dead Zone 
Page 12 



OVNIS 
Page 19 

S.O.S.Helico 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
HECTOR HR . HEWLETT PACKARD HP 41 . ORIC 1 ET ATMOS . 
SHARP MZ, PC 1251, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07. 

HIPPOREBUS trouvez I'expression qui se cache dans la 8 D de Ihippocampe Decompose en irois syllabes dans les Irois premieres cases, le loui a evidemmenl un rapporl avec linlormalique 




SONS SOLDATS,MAI£ PlfeTRES, SARDJNJERSl 



ON LA NOMMt A05Si LA PLAN^TE BLEUE. 
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DEFENSIVE 



Tl 99/4A 



DEFENSIVE: nom Fr. (DaiFanSiv 1 ): se dit d'un avion 
qui est sur une piste et qui doit aller abattre ses adver- 
saires. S'emploie frequem merit sur Tl 99 en Basic Sim- 
ple (le petit Hebdogiciel illustre). 

Laurent VINATIER 

Pour decoller. il y a 2 touches : "1" et "2". 1 = vitesse lente et 2 = 

vilesse rapide. 

On pent commencer a jouer quand I'avion a decolle, c'est a dire 

quand la sirene s'arrete. Un avion ennemi. au bout dun certain 

temps, apparait en bas. au milieu du paysage. II y a deux hauteurs 

pour aller en haul, appuyer sur H et pour retourner a la base, ap- 

puyet sur B. 

Au debut du jeu. lordinateur demande le rayon des tirs de DC. A. 



entie 2 et 8. La D.C.A. tirera au hasard autour de I'avion ennemi sur 
le nombre correspondanl a la premiere question jusqu'a une cer- 
taine hauteur (16 cases a partir du bas). 

Pour changer de vitesse il faut appuyer sur 1 ou 2. puis changer de 
direction apres avoir entendu le signal d'alarme. 
Le signal en haul a droile indique si Ion a un score suffisant ou 
non. Si un 1 est inscrit il faut tenter de gagner rapidement des 
points, car si Ton arrive a 0, on meurt. Chaque maison detruite, ou 
chaque tir (on tire avec la barre d'espace) fait perdre des points. Le 
carre en haul a gauche indique le nombre de litres d'essence res- 
tan!. Si le reservoir est vide, on s'ecrase. 
Pour eviter cela, il taut atterrir pour (aire le plein. 
P.S.: Si Ton veut prendre des risques, on peut atterrir sans sarreter. 
II faut pour cela. appuyer sur 0, altendre le signal et appuyer sur la 
louche de vitesse desiree. Les touches de deplacemenl sont decri- 
tes au debut du programme. 




** s &** 



220 GOSUB 430 



280 GOSUB 430 



300 GOSUB 



* VOICI VOS COMMANDES , 
) GDSU8 430 

■ TOUCHE " 



MGNTER " 

DESCENDRE " 

A GAUCHE " 

A DRDITE " 

MDNTER VERS LA GAUCHE " 

HONTER VERS LA DROITE" 

DESCENDRE VERS LA GAUCHE" 

DESCENDRE VERS LA DROITE" 



320 GQSUB 430 

■ E5PACE;TIRS " 
I GOSUB 430 

■ 0: AT TERR I SS AGE ' 



1: VITESSE rinvENNi-:" 



'ITES5E MAX I 



) RETURN 

) INPUT " DONNEZ LE RAYON DU [ 

[ TIRS DE LA D.C.A (2/8) " : CH 



n?o 


NI=0 


MM 




540 








560 


TT-0 


870 


Bl-2 


sao 




590 




600 


X-0 


610 


SC=1< 



720 HJ-eo 



> V!>27 
) H5*15 

> NI=5 




B70 


CALL 


:OLUR( 1, 16, 16) 




CALL 


;0L0R(2.2,16> 


B90 


:all 


:0LDRI3,2, 16) 


900 




7.0LORI4.2, L6> 




CALL 


:0LaR(5.4.4> 




CALL 


:oLGR(6, 16, 16) 


930 


:all 


:0L0R(7,5,5> 


940 


CALL 


:OLQR(B, 16,2) 


930 


CALL 


roLnR(9,2. 15) 


960 




:qldr(io,2, 12) 


970 


call 


IDLORlIl, 15, 15) 


980 


CALL 


;olgr(i2. is, i) 




:all 


70L0R! 13,2, n 


1000 


CALL 


COL0RU4,5.16> 


1010 


CALL 


CDL0RU5.5.16) 


1020 


CALL 


COL0RU6.5, 16) 


1030 


CALL 


CLEAR 


1040 


CALL 


CHAR140, "1010993C1B183C99 




CALL 


CHAR (41. "6OQ000QG0B 181810 


1060 


CALL 


CHAR(42,"I0103B7CFEFE103B 


1070 


CALL 


CHAR(43,"3BI0FEFE7C3B1010 
CHAR (44, ■' "■.'; til' LTFr BC7.B .X'Ot ■ 


loao 


CALL 


1090 


CALL 


char ( 43, "ocic3dff3di coco-.' 




CALL 


CHAR (SB, "FFFFFFFFFFFF7E7E 


1110 


CALL 


CHAR 188, "607E7E7EO0'E'E:OO 


1120 


CALL 


CHAR < 96. "101 0100000101 010 


1130 


CALL 


CHAR (59 , "1B1BIB1BIB) BOOOO 


1140 


CALL 


CHAR (104, "C:C~C0C0C0COFFF 


1150 


CALL 


char(io5."ffffoooooooofff 


1160 


CALL 


CHAR(106, "C^C3C::C?.CIC3C3C 


1170 


CALL 


CHAR(107,"FFFF03O303"3C3C 


1180 




CHAR (108. "PFFPO0E000C0C3C 


1190 


CALL 


CHAR ( 1 09, "C3C -• .-<.i ',■ I ". . -F F F 




CALL 




1210 


CALL 


CHAR (120, "ooOOl 4I-JAT.59J, '[;■ : 


1220 


CALL 


CHAR 1128, "A54BA24BI1A4 12B. 



1230 


CALL CHAR 1 136, ,, 002E2A2A2A2A2EOO" 






CALL CHAR ( 137, ' , 0024242424242400 ,, 




1250 


CALL CHAR(13B,"O02E222E28282E0O" 




1260 


CALL CHAR(139,"O02E222622222E00" 




1270 


CALL CHARCI40,'■002B2B2B2E222200 ,, 




1290 


CALL CHAR(141,"002E2B2E22222EOO" 




1290 


CALL CHARC142,"OO2E282B2E2A2E00" 




1300 


CALL CHAR(143,"002E2222222222OO" 




1310 


CALL CHAR(144,"O02E2A2A2E2A2E00" 




1320 


CALL CHAR( 143, , '002E2A2E22222EOO M 




1330 


CALL CHAR 1 146, "0077157545457700" 
CALL CHARi 147, '■0074I474444474OO'■ 




1330 


CALL CHAR (1 48,' 0077 117744447700" 




1360 


CALL CHAR( 149, "00771 17341417700" 




1370 


CALL CHAR(150,"1010387CFEFE103B ,, 




13BO 


CALL CHAR(151,■■3BlOFEFE7C3B1010 l ■ 






REM 




1400 


CALL CHAR(152,"303BBCFFBC3B3000" 




1410 


CALL CHAR(153, , 'OC1C3DFF3D1COCOO" 
CALL CHAR! 154, "0077 157547457700" 




1430 


CALL CHAR (155, "0077153515157700" 
CALL CHAR ( 156, "0024240000242400" 




1450 


CALL CHAR(157,"OO0066O0OO660OO0" 




1460 


RESTORE 

FDR 1=1 TO 72 




14S0 


READ A.B.C.D 




1490 


IF A<0 THEN 1500 ELSE 1520 
CALL VCHAR(-A,B,C,D) 




1510 


GOTO 1530 




1820 


CALL HCHAR(A,B,C,D) 




1S30 


DATA 1, 1,64,576, 16,9,72,5,17,3,72,1 


4,17 


24,72,6,10, 1,72,32 




1540 


DATA 19, 9, SO, 4,20, 3, BO, 14,20,24, 


30, 


3,21 


3, BO, 127 




1550 


DATA 19,3,72,6,19,13,72,19.20,17 


72 


,7,20,29,72,3 




1560 


DATA 1B,4,5B,1, 19,4,59, 1,18, 7, 5B 




19,7 


59, 1,1 7,10, 5B,1, IB, 10, 59, 1, 18,15 


58 






1570 


DATA -1,24,60,7,7,11,80,13,-7,11 


BO 


isao 


DATA 19,20,3B, 1,20,20,39, 1,18,25 


58 












3,9, 


B,BB, 3, 16,26,88,3, 14.12,88,3 




1600 


DATA -6, 26, 96. B. -6, 27, 96, B, -6, 2B 


96 


,8,-6,29,BB, 3,-6,3u,BB,3, -6, 31 ,BB,3 










20,4 


, Z, 12,20,40,7.. 13.70,79.7.-7,8,79 


3, 


-11,21,79,3 




1620 


DATA 1, 17, 108, 1. 1,23,107,1,6,17, 


04 




23, 109, 1,1, 18, 105,5.6,18, 105,5,-2, 1 


7,106,4,-2,23, 106,4 








0, 






5,15 


112,11 






DATA 4.24, 105,1,7,15, 106,1,8,11, 


05 


,1,2 


18, SB, 5, 5, IB, 88, 5, 3, IB, BB, I, 3, 22 


88 


1650 


NEXT I 

CALL KEY.(0,T,5) 




1670 


IF S=-0 THEN 23B0 




1680 


IF T=69 THEN 1690 ELSE 1730 




1690 






1700 


X-0 




1710 








GOTO 23B0 




1730 


IF T'BS THEN 1740 ELSE 1780 




1740 








x=o 




1760 






1770 


GOTO 23 BO 




1760 


IF T=B3 THEN 1790 ELSE 1B3D 




1790 


Y=0 




1800 






1810 






1B20 


GOTO 23B0 




1830 


IF T=6S THEN 1840 ELSE 1880 




1840 






1830 






1860 






1B70 


GOTO 2380 




!BFli-i 


IF T-B7 THEN 1890 ELSE 1930 




1890 


V=-V1 




1910 


L-42 




1920 


GOTO 2380 




1930 


IF T=B2 THEN 1940 ELSE 19BO 




1940 






1950 






1960 






1970 


GOTO 2380 




19B0 


IF T-67 THEN 199G ELSE 203O 




1990 












2010 


L=43 




2020 


GOTO 2380 






IF T=90 THEN 2040 ELSE 20B0 




2040 






203' ■ 


X— XI 




2060 






207O 


GOTO 2380 




2OS0 


IF T-4B THEN 2090 ELSE 2170 




2090 


VI -0 





2210 GOTO 2380 

2220 IF T-50 THEN 2230 ELSE 2270 

2230 Xl=l 

2240 Yl = [ 

2230 AT=0 

2260 GOTO 2380 

2270 IF T=32 THEN 22BO ELSE 2310 

22BO G=l 

2290 SC-SC-3 

2300 GOTO 2380 

2310 IF T=66 THEN 2320 ELSE 2350 

2320 NI-0 

2330 GOTO 23B0 

2340 REM 

2350 IF T=72 THEN 2360 ELSE 23B0 



2370 


GOTO 2380 


2380 


IF LM=l THEN 2430 ELSE 2390 


2390 


RANDOMIZE 


2400 


LM=INT( (12-1+1 )-RND)+l 


2410 


GOTO 3660 


2420 


REM 


2430 


IF GG=1 THEN 2300 


2440 


IF H¥=l THEN 2500 


2450 


IF HD=1 THEN 2460 ELSE 2650 


2460 


V5=23 


2470 


H5=15 


2480 


HD-0 


2490 


GOTO 2650 


2500 


FOR 1=1 TG 5 


2810 


CALL HCHAR(V5,H5,120) 


2520 


CALL 50UND(-10,-6,0> 




CALL HCHAR(V5,H5, 128) 


2540 


NEXT I 


2550 


sc=sc+io 


2S60 




2570 


CALL HCHAR(V5,H5,HJ) 


2580 


IF GG=1 THEN 2590 ELSE 2620 


2590 


V3=23 



2620 REM HCHflR(VS,t 



2640 


GOTO 3690 






26S0 


IF KL=0 THEN 


2670 




2660 


CALL GCHAR(VB,HB,HJ) 




GOTO 2B60 














2690 


DE=130 






2710 


GOTO 2920 






2720 


IF V5vV THEN 


2730 


ELSE 2760 


2730 


VS=V5+I 






2740 


DE-151 






2750 


GOTO 2920 






2760 


IF H3>H THEN 


2770 


ELSE 2B00 


2770 


H3-H5-1 






2780 


DE=153 






2 79i. 


GOTO 2920 






2800 


IF H5'.H THEN 


2810 


ELSE 2840 


2B10 


H5=H5+1 






2B20 


DE-152 






2B30 


GOTO 2920 








IF V5-V THEN 


28S0 


ELSE 2920 


2B50 


IF H5=H THEN 


28B0 


ELSE 2920 


2860 


IF HJ<46 THEN 287 


ELSE 2680 


2870 


IF HJ>41 THEN 2BB 


> ELSE 2680 


2880 


GOTO 4450 







2180 ELSE 22: 



2930 


CALL HCHAR(VB.HB.HJ) 


2940 


CALL GCHAR(VS,H5.HJ) 


2950 


CALL HCHAR(V5,H5,DE> 


2960 


RANDOMIZE 


2970 


BK=INT( (4-l+l)*RND)+l 


29B0 


FOR 1=1 TO 4 


2990 


IF OL-1 THEN 3540 ELSE 3000 


3000 


IF Hf;=4 THEN 3370 


3010 


IF BK-3 THEN 3260 


3020 


IF BK=2 THEN 3150 


3030 


IF BK=1 THEN 3040 ELSE 3540 


3040 


IF H5+I>32 THEN 3540 


3050 


IF DE-152 THEN 306O ELSE 3540 


3060 


CALL GCHAR(V5,H5+1,ID 


3070 


CALL SOUND(-1000,-5,0) 




CALL HCHAR1V5.H5+I, 157) 




IF 1L=8B THEN 3110 


3100 


IF IL=96 THEN 3110 ELSE 3130 


3110 


IL=12B 


3120 


SC=SC-2 


3130 


CALL HCHAR(V5,H5+I. ID 


3140 


GOTO 3540 


3150 


IF HS-K1 THEN 3540 


3160 


IF DE-153 THEN 3170 ELSE 3540 


3170 


CALL GCHAR(V5,H5-I, IL) 


3180 


CALL S0UND(-lO0O,-5,O) 


3190 


CALL HCHAR(V5,H5-I, 157) 


3200 


IF 1L-BB THEN 3220 


3210 


IF IL=96 THEN 3220 ELSE 3240 


3220 


IL=12B 


3230 


SC-SC-2 


3240 


CALL HCHAR(V5,H5-I. ID 


3250 


GOTO 3540 


3260 


IF V5-K1 THEN 3540 


3270 


IF D£=150 THEN 32B0 ELSE 3540 


3280 


CALL GCHAR(V5-I,H5, IL) 


3290 


CALL SDUND(-1000,-5,0) 


3300 


CALL HCHAR(V5-I,H5,156) 


3310 


IF IL=88 THEN 3330 




IF IL=96 THEN 3330 ELSE 3350 


3330 






SC-SC-2 


3350 


CALL HCHARIV5-I.H5, IL) 



3360 GOTO 3540 

3370 IF V5+I>24 THEN 3540 

33B0 IF DE=151 THEN 3390 ELSE 3540 

3390 CALL GCHAR<VS-M ,H5, IL) 

3400 CALL SOUNDl-1000,-5,0) 

3410 CALL HCHAR(V5+I,H5,156) 

3420 IF IL=BB THEN 3440 

3430 IF IL-96 THEN 3440 ELSE 3460 

3440 IL=12S 

3450 SC-SC-2 

3460 CALL HCHAR ( V5» I , H5, IL) 

3470 GOTO 3540 

3480 REM 

3490 REM 

7-5 SO REM 



3540 


REM 






:r,-,' : 


IF IL<46 THEN 


3560 ELSE 3590 


3560 


IF IL>« 


THEN 


3570 ELSE 3590 


3570 








.-'ifi'i 


OL-1 






,'59i.' 


REM 






3610 


REM 






3620 


NEXT I 






3630 


IF TT=1 


THEN 






DL=0 






3630 








3660 


REM 






3670 


VB=V5 






3680 


HB=H5 






3690 


REM 






3700 


IF NI=0 


THEN 




3710 


NI-5 






3720 








3730 


EOTG 14 














3750 


CALL HC 




,79,768) 


3760 


NI=3 






i^U 


H.i-7-^ 







3790 IF KL=0 THEN 3820 
3800 CALL GCHAR(V,H,K) 
3B10 KL-1 
3820 IF V>23 THEN 3870 

IF H>31 THEN 3910 
IF H<2 THEN 3930 
GOTO 3960 



3B50 
3860 
3870 
3880 
3890 
3900 
3910 



GOTO 441C 
V=V+1 
GOTO 44 K 
H-H-l 
GOTO 44 It 

IF 



I THEN 4550 



3960 60SUB 4340 



4000 
4010 
4020 
4030 



F P<20 THEN 



4050 t 
4060 1 
4070 C 
40BO E 
4O90 I 



4200 C 
4210 ; 
4220 t 



4250 CALL HCHAR 
4260 GOTO 4270 
4270 IF F«0 THEN 
4280 H=H+X 

4300 CALL HC 
4310 CALL GCHARtV 
4320 CALL HCHAR (V,H,1 
4330 GOTO 4390 
4340 IF KL-0 THEN < 
4350 CALL HCHARlV.t 
4360 KL=0 



)10 ELSE 4030 



ELSE 4120 



ELSE 4 150 



ELSE 4210 



ELSE 4270 



13B0 RETURN 



4410 


IF AT=0 THEN 4560 


4420 


IF R<>96 THEN 4450 ELSE 4430 


4430 


CALL S0UND(-lOOO,-3,0) 




GOTO 4550 




FOR 1=1 TO 5 




CALL HCHAR(V,H,I20) 




CALL SOUND(-100,-7,0) 


44B0 


CALL HCHAR(V,H,32) 




Suite page 4 



PORTRAIT ROBOT 



Tetmoin d'un crime, vous entr'apercevez lagresseur. 

Arrive* dans les locaux de la police on vous demande 

de decrire I'assassin et vous avez quelques 320000 

possibilites... 

Compatible ORIC 1/ATMOS. 

Jerome DENOT 



180 printchr»i6>,chr»<i7> 

■110 GOSU813900 

400 TEXTCLS'PRPER6INK4 

402 PING 

405 1FGG=1 THENPR INTCKRtt 1 7 >ELSEPR I M 
T 

40? GG-1'K0-10 

410 PRINT, PRINT 

420 PRINTCHRI(27>.CHR«<4 J, "J PORTR 
HIT ROBOT" 

438 PRINTCHRX -::.■ 

448 PRINT'PRINT'PRINT 

450 X-8'Y«18ER«0 

460 PRINT"Vou* venez de voir un 49r 



490 PRINT"*on PORTAIT ROBOT." 

491 PRINT'PPINT.pRINTiP«INT 

492 PRINT". .. ATTENTION. TOUTE RESSEM 
BLANCE flVEC" 

493 PRINT"UNE PERSONNE EXISTflNTE SE 
RHIT DE PURE" 

494 PR WCG INCIDENCE. .. I " 
580 REM 

518 REM CHOIX DES VARIABLES 

528 REM 

523 PRINT 

538 INPUT"TEMPS D'APPARITION DE L'A 



DI 



C1-! 



548 IFDK1ORDI>508THEN530 

550 GOSue26880 

998 REM 

1888 REM CHOIX ORDINHTEUR 

1885 REM 

1818 INK4'HIRES'PAPER5' INK5 

1028 X-0:PRlNTCHR»(t7) 

1038 PRINT"Un Instant. J« d*si 



1 PRINT"c 



1858 E 
1068 E 

1100 K 



1208 REM 

1218 REM COULEUR DES CHEVEUX 

1238 REM 

1238 COINT<RN0(l>»2)*t 

1.100 RED 

1318 REM CHEVEUX 

1328 R" 

1340 C 

1408 fi. 

1410 REM OSEILLES 

1420 IT 

1430 C 

1440 C 

1588 F 

1510 REM COULEUR DES 1 

1528 REM 

1530 CY-INKfiNDCl >*3)*1 

1598 It" 

1600 F 

1610 F 



3 REM YEUX 
3 REM 



i CURSET45+X, 115.1 'F0RI = 1TCJ5CIR 
CLEI.l 'NEXT :CURSET85*X. 115.1 
1630 F0RI=1T05'CIRCLEI,1'NEXT 
1635 IFX>10THEN3535 
1640 Y«INT(RNDi:l )»?W1 
1650 ONYGOSUB8000.S100 



1818 REM BOUCHES 



1910 REM MEHTONS 



2010 REM SOURCILS 

2020 REM 

2030 = 

2040 C 

2100 R 

2110 REM BOUCLES D'OREIU-ES 

2120 R""" 

2130 E 

2140 C 

2280 REM 

2210 REM MOUSTACHES 

2220 R 

2230 (- 

2240 C 

2300 REM 

2310 REM 80UT0NS 

2320 R" 

2338 E 

2340 C 

2400 R6M 

2410 REM CICATRICES 

2420 R" 

2430 C 

2440 C 

2500 F 

2510 REM CHAPERU 

2328 REM 

2530 CH=INT(RND<n*2:i*l 

3490 GOSUB4509 

3500 REM 

3510 REM CHOIX DU TEMOIN 

3520 REM 

3525 CURSET126.0.1'FILL199, 1.8 

3338 X-120 



PRINT "CHEUVEUX" 

PRINT"C13 RfllDES ! C23 PRISES" 

INPUT"F!PPUYER SUR C130UC23" iCT 

I FC T < 0ORCT >2THEN 3 6 1 

ONCTGQSUB6009,610U 

PRINT'PRINT'PRINT 

PRINT"0RE1LLES" 

PRINT"C13 PETITES : C23 GRANDE 

INPUT"APPUYEP SUR Cl]OUC23"iOT 

IFOT<0ORQT>2THEN3670 

OWOTGOSUB7000.7100 

PRINT PRINT'PRINT 

PRINT "YEUX" 

P8INT"E13 BRIDES ! C23 NORMAUX 

3760 INPUT"HPPUYER SUR C130UC23";YT 
'::.-,2 -.URSET45+X, 1 15. 1 'F0RI-1T05 CIR 
CLEI . 1 'NEXT 'CURSET85*X. 1 15. 1 
3764 F0RI=1T05'CIRCLEI.1:NEXT 
3770 IFYT<8ORYT>2THEN3730 
3780 ONYTGOSUB80B0.B100 
3790 PRINT'PRINT 



3630 

'3659 
3678 



3728 
3730 

3740 
3750 




t PRIf 



"NEZ" 



3550 
3560 
3578 



PRINT'PRINT'PRINT 
PR[NT"FURME DU VISAGE" 
PRINTT13 TRIANGLE I C23 RQND" 
INPUT"flPPUYER SUR C130UC23" I VT 
I F VT< 0ORVT >2THEN3550 
ONVTGOSUB5000. 5188 
PRINT'PRINT'PRINT 



3810 PRINT"E13 LONG I C23 GROS" 

3828 INPUT"RPPIJYER SUR [:.]i)Ut.M . N'l 

3838 IFNT<9ORNT>2THEN3790 

3848 ONNTGOSUB99O0.9198 

3850 PRINT'PRINT'PRINT 

3868 PRINT"BOUCHE" 

3870 PRINT'Xl] MOYENNE ! C23 GRANDE 

! C33 PETITE" 

5880 INFUT"APPUYER SUR C13.E230UC33 
";BT 

3890 IFBT<0ORBT>3THEN3B50 

3900 ONBTGGSUB100O0, 10190, 10280 

39 !0 F-RIHT: PRINT i PRINT 

3920 PRINT"MENTQN" 

i;'?y PFIMT-C13 FENDU ! C23 TRIANGUL 
AIRE" 

3940 INPUT"APPUYER SUR C130UE£3"jM1 

3950 IFMT<0ORMT>2THEN3910 

3960 ONMTGOSUB11000, 11109 

3979 PRINT PRINT-PRINT 

3980 PR I NT "SOURCILS" 

!.:-m PP:)!T"E1J LONGS : CiJ uW-.'v/. 
: C33 POIMTUS" 

400B INPUT "APPUYER SUR E13.C230UC33 
"iST 

4Q10 IFST<0ORST:-3THEN397B 

4020 -ji:s Tiji/SuBi^iirnij, 13100. U'iO0 

4030 -fiui ft- nn r-Pirrr 

4040 PRINT"BOUCLE D'OREILLE" 
4050 PRIHT'Tl] GAUCHE : L2J [,Pn[Tfc 
E33 SANS" 

4060 tNPUtWPUYEK am CIJ.C2J0UC33 

"jBU 

4070 i fbi j < 0orb u > 3t he h4 030 

4975 ONBUGOSUB130B0. 13100,30900 

4890 PRINT'PRINT'PRINT 

4090 PRINT "MOUSTACHE" 

4100 PRINT"C1D NORMflLE 1 [23 GRANDE 

C33 SANS" 

4118 INPUT"APPUYER SUR C1XC23QUC3] 
" ; MU 

4120 IFMU<0ORMU>3THEN4880 

4130 ONMUGOSUB 13300. 13400.50090 

4140 PRINT'PRINT'PRINT 

4150 PRINT"80UT0N3" 

4160 PRINT"C13 PRESENTS I C23 RBSEN 
TS" 

4170 INPUT"APPUYER SUR C13QUi.. : ;r f; 

4180 IFBV<8DRBV>2THEN4140 

4190 ONBVGOSUB 13508. 13560 

4200 PRINT'PRINT'PRINT 

4218 PRINT'CICRTRICE" 

4220 PRIHT"C13 GfiUCHE ! C23 DROITE 
[33 SANS" 

4230 IHPUT'WPUYER SUR [13.C230UC33 
"jCU 

4240 IFCU<0ORCU>3THEN4280 

4250 ONCUGOSUB 13600. 13700.50000 

4260 PRINTiPRlNT'PRINT 

4270 PR INT "CHAPEflU" 

4288 PRINT"C13 PRESENT I C23 ABSENT 

4290 INPUT "APPUYER SUR C130UE23";CV 

4380 IFCV<0ORCV)2TH£N4260 

4310 IFCVO1THEN4350 

4320 CURSET12+X.70, 1 'FILL10. 17. 16 

4330 CURSET92+X, 10. 1 'FILL60.3. 16 'CU 
RSET110+X.10.PFILL69.1.21 

4340 CURSET29+X, 10, 1 ' FILL60J Sj 16 'CU 
RSET77+X.18. 1 'F1LL60.3.23 

4345 REM 

4350 REM COULEUR DE& CHEUVEUX 

4355 REM 

4360 PRINT'PRINTPRINT 

4365 PRINT "COULEUR DES CHEUVEUX" 

4370 PRINT"C13 BLONDS I E23 NOIRS" 

4373 IHPUT"RPPUYER SUR E130UE23"jCD 

4330 IFCD<1ORCD>2THEN4360 

4385 IFCD=2THEN4395 

4390 CURSET16*X.29,0:FILL68.1,3:CUR 
SET 1 15+X. 29, 1 F I LL6B .1.0 

4395 IFCD=2THENCURSET10,29,0 F1LL68 
, 1 . 1 CURSET 1 1 S . 29 . ' F I LL68 - 1 , 

44B8 PRINT^PRINT'PRINT 

4485 PRINT"COULEUR DES YEUX" 

4410 PRINT"C13 BLEUX ! C23 VERTS 1 
C33 NOIRS" 

4415 INPUT "flPPUYER SUR E13.C230UC33 
" ; CZ 

4420 IFCZ<1ORC2>3THEN440B 

4423 IFC2-1THENCURSET29+X. 109, B'FIL 
L12.1,6'CURSET56*X. 109,0 FILL1 2.1.0' 
GOT 044 35 

4430 GOTO4440 

4433 CURSET77+X, 109.0' FILL12, 1 . 6'CU 
RSET102*X.109.8'FILL12,1,0 

4440 IFC2-2THENCUP:=ET29+>;,109.0'F1L 
...- ■:■■■ ::.'P'->i:^»;-:. 189.0'FILL12.1.0' 
GOTO4450 

4445 G0T04455 

4450 CURSET73-X, 109. FILL12, 1,3'CU 
RSET182+X. 109.R FILLIP. 1,0 

4455 IFCZ=3THEHCUP5ET29+X, 109.0^FIL 
L12.1.0CURSET56+X, 103, FILL 12. 1 .0 : 
GOT04465 

4460 GOTO4470 

4465 CURSET77+;.:- 10S.S F ILL1 l. , 1,0' CU 
RSET102+X. 109,0 FILL12. 1.8 

4479 REM 

4475 GOTO2000O 



4522 PING 

4523 PRlNT-Regsr-cJe; bien I " 

-■".■c? (-'>i=4rnliTiJ!.J7-E t -W ■iuUNH.I- 
VO'NEXT'PLRYO, 0,0,0 

4540 REM 

4550 REM CHEVEUX BLONDS. 

4560 REM 

457^ IFCi>lTHEfl':iJPiEritf:-.ia,0 FILL 
6ft. 1..J a"P'5-ET115+;-:,i9,0 FILL68.1.0 

4580 REM 

4590 REM CHEVEUX NOIRS 

4UO0 REM 

4610 lFCi;=2THENCURiET16+X, 29,0 -FILL 
6B,1.0CUP3ET115.29.0'FILL68.1,0 

4630 REM 

4649 REM YEUX BLEUX 

4650 REM 

4669 IFCY=!THEMnif:-;,tT ;■?+:■:. 109.0FIL 
L12.1-6 CURSET56+X, 109,0 FILL12.1.0' 
GOTO4680 

4670 GOTO4700 

4680 CURSET77+X. 109,0 FILL 12.1, 6'CU 
R1ET1O2+:<.1Q9,0'FILL12,1,0 

4700 REM 

4710 REM YEU.I VfLKVi 

4720 REM 

4730 IFCY=£rHENCljPSET25+x, 109.S F1L 
L12.1.3'CURSET56n:.105,0 FILL 12. 1.2 
GOTO4750 

4740 GOTO4760 

47-3:; CUPYET,' _-■*;■:, 109,0.FILL12, 1.3CU 
RSET102*X,109,9'FILL12-1,0 

4760 REM 

4779 REM YELK NO I Pi 

4780 REM 

4798 IFCY=3rHENi;ijfiETi^+>:, 109,0:FIL 
LI 2, 1.0CURSET56+X. 109.0 'F1LL12. 1.0' 
G0T04819 

4800 G0T04828 

4810 CURSET77*X,199.0'FILL12.1.0'CU 
PSET 1 02+;< . 1 03 , : F ILL 12, 1 . 

4820 REM 

4839 REM 

4849 REM CHRPEAU HAUT DE FORME 

4950 REM 

4FJ69 IFCH-1THEN4870ELSE4900 

4%/ij r ijP: : .E r ITiU-X, 79. 1 'FILL10. 1. 21 ' C 
URSET12+X.79. 1 ' FILL10. 17. 16 

4880 CURSET92+X.10.1'FILL50.3.16CU 
RSET110+X.10.1'FILL69.1.21 

jsyij .::jifSET29fX, 10, l'FILL60,8,16'CU 
RSET77+X.10.1'F1L.L60.3,23 

4999 REM 

4918 IFY-10THENRETURN 

4940 INK0 

4945 1FX-1Z0THEHRETURN 

4930 REM 

4969 REM EFFRCEHENT t'ES COOL0JRS 

4970 REM 
4980 UAITDI 

4985 CURSET77*X.109.0FILL12,1,5'CU 
RSET102+X. 109, ' FILL12- 1. 5 

4986 CURSET29*X. 109,0 'FILL12, 1,3'CU 
RSET36+X, 109, i FILL12. 1 .5 

4997 CURSET16+X.29,0'FILL68.1.5,CUR 
SET115+X.29.0FILL6a, 1.5 

4988 IFCHO1THEN4990 

4989 CUPSET29+K. 19, I i FILL68.8, 21 CU 
F?SET77+X, 10.1:FILL60.3.21 

4999 CURSET92+X, 10. 1 FILL68.3, 21 ' CU 
RSET110*X, 10. 1 FILL60. 1,21 

4991 CURSET 12*X, 70, 1 FILL10. 17, 21 'C 
URSET120+X.70.1 'FILL10.1.21 

4996 INK3 

4999 RETURN 

5909 REM 

5910 REM VISAGE TRIANGLE 
5020 REM 

'--.C~-.ij : !!=■ ■-'■. f .-=■?--■■ - -."**L- - i*f(l.l0.40,l:DRA 
W30.45, 1 'DPiii; &■■<■■■ ■r,'F-;i'.-.=58. -45, S»f: 
U0.-40.1 

5070 RETURN 

5100 REM 

5110 REM VTSmGE- P ! J.'lli 

5128 REM 



0,0.1 

5140 [>PH1015,~7. lDRflW10,-8.1'DRAW10 
.-35.1 'DRRW0.-35.1 

5150 RETURN 

6880 REM 

6010 REM CHEVEUX RA1DES 

6028 REM 

6025 J-0 

6039 FOR I =0.061 TOPI STEP'. PI '46 )K=SI 
N(I)'J=J+2 

6040 CURSEK112-J)+X,95.1 DRAW0.-16 
-(K*45).l 

6050 NEXT 

60S9 RETURN 

6190 REM 

6110 REM CHEVEUX FRISES 

6120 REM 

tljM FriRj = 32-,ji2iTE"--. FijF-: = :l:iTiiiU' 
;TEP5 arfiET I +X,.. .1,1 CIRCLES ■ 1 ■ NEXTI ' 
NEXTJ 

ij*ij Fiji* i = 2 4 ■■" ■:■ 1 1 u-i Ti£F ~ cuRitrn-;:?? 

.1 CIRCLES, 1 'NEXT 

6150 F0RI=26Tv:e8i r ;P5 C JR'.ET ItX . 71 
.J-CIRCLE5,1=HEXT 

6160 FOPI=ii>TO105i"EP5 L'.'RiETIt,;, 67 

1 CIPCLE5.1 NEXT 

6;-:z- rriRi = n.jTOioi;~tf-5 ':'. ; Pv.ft "+;•:. 6.? 

,1 CIRCLE5.1 'NEXT 

6180 F0RJ"37TO9riTr:F5 CYR^LT 1+X, 57, 
1 C1RCLE5.1 'NEXT 

6190 F0Rl=42T09i';TEP5 iLUPiET 1-X, SE 
1 CIRCLES. 1 'NEXT 

6200 FCIRI=50TO94STEP5 CURSET l*X, 47. 
1 CIRCLES. 1 'NEXT 

6210 RETURN 

7990 REM 

7010 REM PETITES OREILLES 

7020 REM 

7039 CURSETEiJ-,;. i$-j. i 1.,RmU-2. -5, 1 'D 
RRW-3,0,1'DPRWS.3O- 1 DPHiii.M,; (,st^N3 
,-5,1 

7049 CUR3ET17>X, 107. 1 0PRW1 . 20. 1 :CU 
RSET110*X, 195,1 DRAU2.-5.1 

7043 DRRU3.9.1 'DRAW0.30. 1 

7050 DRHH-2.fi, i DSfilJ-.j.-^, 1 CHRSET1 
13TX.107. 1' DRAW- 1,28,1 



OWC1 
ET ATMOS 



7060 RETURN 

7100 REM 

7110 REM GRANDEi i>tlLLE3 

7120 REM 

7130 CURSET 10B+X. 115.1 DRRH5.-10.I' 
ORRW3-0, 1 'DRAU2.-5,1 DRRW-1,10,1 

7133 ORAH-4,25, 1 

7140 ORRH-2.0,1 DRAW-3.5. 1 CU=iET.:.: 
•X.115, l'C'RRLJ-5,-10- 1 DPfiW-3,0.1 

7150 DRRH-2.-5.1 CRAW1.19.1 DRAW4 ■ 2 
5.1'DRAW2,0,l.DRAlJ3,3,t 

7160 RETURN 

8008 REM 

8010 REM YEUX BRIDES 

8028 REM 

9030 C'JRSET45*X. 115.1' DRRW-19, -5, 1 ■ 
DRAU15.0.1 :DPRU0- 10. i DRRW-7,0,1 

6040 CURSET8S+X,115.1'DRAigi0,-5.1 D 
RRU-13.0.1 DRRW8, 10. 1 DRflW7,0, 1 

8858 RETURN 

8180 REM 

8110 REIT YEUX HOPHRUX 

8129 REM 

8130 CURSET35+X. 111-1 DRRW15. -1 . 1 'C 
URSET95*X. 11 1 . 1 ' DRAW- 15. -1.1 

8148 RETURN 
8690 REM 
8610 REM 

:-.i6,;y !;■■:■' 

9889 REM 

9010 REri LONG NEZ 

9020 REM 

■?gj6 :,ijf-5et6 :■!+::. 1 10. i l.rrw-s.29, i ■n 

RAW-5,3.1 
-njS DPRi.llfl.'j. 1 ^'PRUllj.-'j.l IiRfti.J-5. 



4,1 

9059 RETURN 
9180 REM 
9110 REM GROS MEZ 

9129 REM 

9130 CIJP3ET61*X. M3.1 DPAU-2. 10, 1 ;(> 
PRU-3.S-1 DPMWij.i. ! [..piiMS . S . ; LFhl':-:. 
0,1 

9140 DRRW5.-5.1 (,'RfrUij , -S . 1 ' DRFlM- i . - 
5-1 DFflU-2, -10,1 

:M5n F0RI = 1 i'iro! -;7 ■ CUF 3ETS7*X, 1,1 'D 
RRW3,S.1CUR3ET73-X,I,1 OPRIJ-3. 5. 1 ' N 



9160 RETURN 

10000 REM 

19010 REM BOUCHE MOYENNE 



LC«V!ij :.R;U. : i3.S 1 L.F-FiN.;.C, 1 'DPRW12,- 
5.1 

19050 RETURN 

10100 REM 

10110 REM GRHNDE BOUCHE 

10120 REM 

10130 CUR3ET4'i-K-:. i%-/. : [,RRU17,-6, 1 ■ 
DPfiWj.3. 1 DRRW3.-3, 1'0RRH17.6.1 ' DRAH 



1 DRAU13.5. 1 DRA1J14,0.1'DRAN13. 



101 

10159* RETURN 
10200 REM 

10210 REM PETITE BOUCHE 
19220 REM 

19230 CURSET58+X, 155,1 DRRW7,5.1 DR 
RW7.-5.-1 'DRAW- 14, 0.1 DRRW5.4.1 ' DRRW4 

.0,1 



L1010 REM MENTON FENDU 
--D REM 



110 



3 CUP3ET65tX.166,lDRAU0.9,l 
11040 RETURN 
11100 REM 

11118 REM MENTON TRIRNGULftlRE 
1 1128 REM 

11140 CURSET53+X,175.0'DRflW3.5.1'CU 
RSET78+X.175,8'DRAW-3,5,1 
11150 RETURN 
12000 REM 

12010 REM SOURCILS LONGS 
12020 REM 

i::o3'j Ci-'F-it-T ■;()<■>: ;co-i ,,rrui0,-4. i ■■ 

DPRW18.2, 1 
1293'i t'RfiU7,6,l'DRAU-7.-2,l'DRA14-10 

' 1204O DRAU-10,1,1 DRAU9, -2,1 'CURSET 
100+X.100, 1 .DRHN-10.-4.1'DRAU-10,2.1 

12050 DRAU-7.6,1'DRAW7,-£,1DPRU10- 
-1,1 DRRU19, 1.1'DRAW0,-2,1 

12060 RETURN 

12100 REM 

12110 REM >.i;njpC I l_v, t.OPIir-!,.. 

12120 REM 

\i\2v CijR-;ET32tX. Kj0,0 CIRCLES, 1 CM 
RitT35+.-:.9K,i3 CIRCLES, 1 

12135 CURSET39'X.?7.0CIRCLE2.1 

13140 C:jR'-,E744.x.9£.0ClF'i:LEi. 1 CUR 
■".ET49+:;. 100. 1 C1PCLE2.1 CUR3ETS3-X. 1 
02,9 

12150 CIRCLE2.1 'CUPSET97+X. 100-0 CI 
PCLE31 i:-UR' i ET94+:-;.9S-t3 CIRCLE2.1 

121C-0 CUP3ET : :<0->..47 c :J1RCLE2.1 'CUR 
■ETSS+X.3-;0 C1PCLE2.1 ' CURSET80+X. 10 
0.1 

12170 CIRCLE2,l'CURSET77tX.102.0'CI 
RCLE2,1 

12130 RETURN 

12200 REM 

12210 REM SOURCILS P0INTU5 

12220 REM 

12238 FQPI=104TO103 CURSET30+X, I . 1 ' 
C>R«w20.-lO.. 1-NEXT 

i 3240 F.?Rl^lO4TOI98CURSET100+X.I.l 
■PRRU-2O.-10,1 'NEXT 

Suite page 9 



GRAPHISMES 



Ce programme utilitaire permet de dessiner avec le 
crayon optique, des "objets" sur quatre graphismes uti- 
lisateurs en 4 couleurs et sera apprecie par tous ceux 
qui veulent se parfaire dans le developpement de jeux 
video sur TO 7 et MO 5. On peut enregistrer I'une de 
ces representations sur cassette (format et couleurs), 
puis la recuperer a la demande, sur ecran et impri- 
mante. 
Le mode d'emploi est inclus dans le programme. 



TO? 



J.Charles HUMBLOT. 

599 COLOR 4,&:CLS 

666 PP.INT:PPINT"fi ! . 



110 ATTR! 

INT Gt 

126 ATTRB 8.8:C0L0R 



41 PR 



LOCATE 5,21. 0:pp 
FOR 1=1 TO £806! 
".3,4: COLOR 4 
Iq > CHOU: P'UME FONCTIQN 



INT .... 
13B DIM 8(13, 
NEXT tl COLOR 
140 BOXF v8," 



176 ' 

■31-1 loi-hTe 4. i4:ppikt--.;-je: '<oule:-vc^ = 
ire ?"!ppint 

1?0 PRINT"- Fame ■><:? dessins 

":PRINT 

£00 PRINT"- Rtcuperer de = dessiis 'K7 



838 CONSOLE .20.1,i:F0F I =1 TO TiPRINT 

NEXT I 

£40 LOCATE 35. 13: Pl= INPUT*< 1 I . 

£50 IF Rt = CHRJ>:2' OP P* = i:hP'<I£> THEN 



260 IF R*="d" OR R*="D" THEN £98 
















2S6 FOP 1*0 TO 3?:L!NE' I.7)-tI,13>" " 




NEXT Et COLOR 3 




366 ' 








770 PPIMT;PFi:iT:PPINT"Si Is cassette 




SSINS est en plate" 




340 PRINT:PPINT"€t U magnetophone en 


le 


330 PRINT:PRINT"»Pfiu 3 ez sur- -ENTREE' 


tin 


366 FOR 1 = 1 TO 7:PRINT:NE>:T I 




370 LOCATE 35, 13sA*= INPUTH 1 > 




g=e IF A*=CHR#U2J OR UI-CHitlidi THEN 








AI- 'CHPH 13 ■ THEN 378 




4O0 OPEN'T'.ll.-CAES^ESEINS" 












430 CLOSE 
















SSINS est en plate" 












488 PRINT IPRIRT "-=*«»« sur 'ENTREE' 


-in 


4?0 FOP 1 = 1 TO 7:PRINT!NE).T I 




508 LOCATE 0. 1 J:HJ=INPUTf ■ i I 




518 IF AI*CHR*.£-- OF ft*"CHS*U8> THEN 


£8 


















550 ' 




568 ' 





616 RE*=INPUTt<;i< 
THEM 660 

626 IF RE*»"N" OP RE*" 
63B LOCATE 27, £: GOTO 6 




;66 C0SUBI989'n.i=-: -:r. pises OFI'.LE =:■ 

sc-o p-.^:fop :\=o to;:cp-.- r: .=4:«e>:t ; 
;ee inputpen ki.yi 



786 IF KK1.88 AMD V KISS THEN 858 

718 IF KKE98 THEN 68£ 

7£8 IF VK£6 THEN GOSUB 1256: MTU iiC" 

saisie du non 
730 IF Y1--72 THEN CCSU6 14S>8: OCT.; 7.3>v 

affichage del dessins 
748 IF miSa THEN GOSUB 1358:G0T0 780' 

aft'lehage des chiffres 
758 IF Y1M76 THEN 796 
768 FCP I«0 TO 4 

770 IF X1>£00+' I*£4 ■ HMD /:l:££4.<I*£4> T 
HEN PWIGOSUB ?60:GOTO 686 
730 NEXT I 
798 FOP 1=0 TO £ 

886 IF Xl>£08*' I*24i HMD :a ,224.a*£4> T 
HEN P-:=I+5:G0SUB ?d0:GOTO 680 
SIB NEXT I 

8£8 IF XI > 272 ANO :: S05 then PLAVD*:G0T 
1956 

s?e plh.m: :oto sso 

848 ' 

S56 IF XK8 OP VKB THEN 688 

360 X=:a88!V = YlBS 

87B IF S(X.V, = ANL- P'.=6 THEN 630 

330 Pl~;M: LOCATE ■■■..;! PS-INT GPf ■■!■■: 

S9B IF P'.; = 6 THEN -:■::.,.' =0: GOTO 638 

908 SOt.YWIF X-.=7 AND Yt=7 THEN CJ. = 8: 

GOTO 938 

918 IF X>7 AND ■■■ =■ THEM l-i = l : uOTO = "0 

320 IF ;-;, = - Then :. = i ELSE C*=3 

938 IF CRS;iC\J = P\ THEN 638 

948 CR'-:<:c;::> = p;:!t;OSUB 1308:GOTO 630 



958 ' 



iiPRIN 



i FOR X-8 T013SFOR Y»BT015:S(X.Y), 
YsNEXT )!■ affieha^e arille H ic> 
J BOXF<O,0>-U5,15?GR*C4>,4,6 
J LINE (19£,35:'-(3I9,25):LINE(19£, 
i9.72j:BO>r< 192.72 ■-' 319. 15S? 
3 FOR 1-0 TO 4 
) B0Xi288*I»24. 1S3>- 

! COLOR i 



5 COLOR, 6JNEXT I 

3 FOR 1*0 TO 2 

i BOX<200*I*24,176i-'2O8-'i;*|)«£4.. 

3 COLOR 4,I+5:L0CATE 26*1*3, £3 ! Pf 



.286+1 1*1 >i 
-I«3.£6:PRINTGPt' 



1138 E 
1148 C 

: 150 l 



I LINEt.3I4,196:-'3ie. 194'. 
i LINE<£76. lS6'->£98. 188/: 

LINEC276. 1881-1 £76. 190'. 
i LlNE<276.190>-v288, 198>: 

LINE- (234. 193;'!LINE-i£86, 



£88,196:' 

1190 LlNE-i.£?6. ISC- :lOC-TE S5. £3. 6: PP INT 

■K7"J 

1268 LOCATE 27. 13. 8: PRINT"DEFGRI" 

1216 LOCATE £6.1.8:PfiINT"Non. "; 

:i£u .jc«:; :-■•■ i,o:pp:nt cs*(4)j 

123B LOCPTE £?.5.>?:PP:nt '-^.-si ns" : RETURN 

1248 ' 

1250 C0LOP4.6:»i = - ' :ll:l-T- 15. L . : : -H:-.- ' 

"!CHR*f7>' not- du dessin 

: -60 !_0ChTE 25.1 

1270 FOR I"..l TO 12 

12SB NI1**INPUT*i 1): IF nns=CHP*'13J THEN 

:-«8 Z^-Z LOCATE £5, :.0:«1(=P1* + MMS 

1£90 PRINT I1*!NEXT V. 

1388 LOCATE 39, 1,0:COLOR,P - . 

1316 RETURN 

1320 ' 

1330 ' 

1340 ' 

1356 C0L0R4, 6: LOCATE £7 , 1 3, 0: PR INT"P3tie 

r>tez...":PLAYD*'-at'Ticha9e des chiffres 

1360 ' 

1378 ' 

1386 GOSUB 1698:L0ChTE 27, 13, 6: PRINT" 

1390 FOR C^-0 TO 3 

1498 COLOR CR*.:O:;i:L0CATE £3 + C*»3, 101PRI 

MT QRtCCK) 

1416 FOR I*=0 TO 7 

1426 LOCATE 27*C , .»3. M-T-iPPINT USINC"»# 

1430 NEXT K 

1440 NEXT C'.:C0L0F ■> 

1450 INPUTPEN XI, Yl 

1460 BOXF <£e8,73'-'3M, 151 :■. 6: LOCATE £9 

,13,0:PRINT"DEFGR*":COLOR4.pr; 

1*70 RETURN 

1*88 ' 

1*98 C0L0R4.6:L0CHTE 27. 5, 8: PPINT"pa « itn 

t*l. .."iPLRVM' affteftMt des dessins 

1500 ' 

1510 ' 

1528 GOSUB 1690:LOCATE £7. 5. 0: PRINT" 

1530 FOR C*«8 TO 3 

1540 color CR*;i"c-;-siF :-.=■:' them ur. =£?-:,■ 

£-. = 3i:yi^=5:»£'. = ;:S^T:: :',i(s 

1558 COLOR CR - /:(C^;i:lF L-':=l TMEM ur. = £6:U 

£'. = -3: GOTO 1586 

1560 IF C': = £ then U j ". = £«■: ..■£ , .-7I : Vl-'.=H V2 

^*7:GOT0 1586 

1570 ur: = £6:U£^ = 33 

1T30 LOCATE u:\.v:-.:-'lr,- GPI..CS > : LOCATE 

■_■ ]■.•-.■■■£■:! hTtre v.::F-F'!HT GP*<CX! 
1598 ATTRB 1,8' LOCATE U£'.. ■! '.: FP ill- JH 
C^.):LOCATE U£ , ;*5.V2-.:aTTPB l.i:PRINT GRI 

i;-:.iihTTfiB 0.0 
1680 NEXT C:;:COLOR 4-.ATTR8 6,6 
1618 IF K*■ ,, K7'■ THEN 1646 
16£8 INPUTPENX1.Y1 

1638 B0XFtBBB,E6:-i'319,7i:'.6sL0CATE £9,5 
,8:PRINT"dessins":COLOP 4,Pr; 
1640 RETURN 
1650 ' 
1660 ' CALCUL ET CONSTITUTION [ E F GRI 

1670 ' 

1688 ' 

1698 CS=a :«•-. = $ :"/. = * 

1788 FOR N^*8 TO 7 

1718 YHCC:;,N^)=0:rOP :-:i-; = B TO 7: IF S'Xl 

::-,W^.N i ; + ::;.= i THEN . ]'.■ c:.. N:;)=¥tXCCK,NX3 

♦e*<7-xi«) 

1728 NEXT Xl? 
1738 NEXT HK 

P40 DEFGR*iCJ;- = vr;i C\. 8 ■ . Yi:;( CK, 1 >,VIS< 

CS;,2),Yll!<C^.3 ...vr;-CS.4 '.Yi;;<CS:,5>,YUi 

C';,i),Vl';i.c:;.7' 

1750 IF C^«0 'HEN .;■.= !:[«'; = *: GOTO 1780 

1768 IF C": = l THEN C": = £: U-.=8'.Z;:=8:G0T0 17 

1778 IF C!;=£ THEN C'.=3i U'i=8: GOTO 1780 
1730 B.ETUB.N 

1800 N^.=0:E';=0: IF C"l=8 THEN 1SS8' cha 

ngement de coiileur des ■: ases d'un csrre 
1810 ' 

1828 IF C';*l THEN W::=8:G0T0 1850 

U30 IF C-.=£ HEM !■. = ;:: GOTO 1358 

1840 W-i-SIZK-S 

1850 COLOR 4, pv.:F0R NK=0 TO 7 

I860 FOR X11-0 TO 7: >;=>;i ■. + «!:: ' =n;;*: - . 

1370 IF S<X,Y>=0 THEN 1898 

1888 LOCATE X,Y.0:PRINT GR***:.; 

:£-90 NEXT Xi* 

1980 next n;: 

1910 RETURN 

1920 ' 

1930 ' 

1940 ' 

1350 IF KKfO'-tr." THEN 680 ELSE IF NI="" 

-HEN 10SUE 1E58' sauuegarde -ur K7 

I960 ' 

1970 K»*"K7":G0SUE : 4?£i: I ! = '' " : COLOR 4.6: 

LINE(219,25)-'2I9,31> 

1988 LINE '.243. 25'- -.243.31 ■ : l I WE ■ £3 4 ■ £5 ■ - 

<£84,31> 

1998 LOCATE 27, 13,8: PRINT" 

2000 LOCATE 27,iB.e:pKiNi";hoisisse;" 

2818 LOCATE Z~. l£.ii:PP!NT- i-; ■.,.:..-!.;; = ■ 



£628 LOCATE 31. 14.8:PRINT"a" 

£US0 LOC-TE 26. 16.j:pf;HT' si U "t..i."oi. 

£»4u LOCATE 29. iS.ijsPPIHT'-suP K7" 

£058 ' 

£668 INPUTPEN 

HEN £668 

£070 ir ■ 



K192 OR Vl<« 1 

8 THEN £138 



' Xl>£96 AND VIM- 
2030 I" VI "£ THEN 2060 
2898 IF XI £1? THEM -0'. = 0:G:t: £!£,; 
£188 IF X1'243 THEN FO:; = i : CCFO i:ln 
2118 IF >:i £ftd -HEN rCi'i = E ELSE Fry.* 
2128 PRlNTil,M»,FO'-i 
2138 FOR C'.=0 TO 7 



>140 PPIN - 



i . c p ■. :■. 

■;..:NEXT . 



:F0R JK-8 TO ■ 



) COLOR 4IG0T0 598 ' 



2138 BOXF (£00.26 '-.j!?. 71 -6:L0CATE £9, 

5.8:PRINT-d«Isini" 

2198 BOXF (£88,73:'-'3U. 151' ■ 6= LOCATE £9 

, 13.01PRINT-OEFGR*" 

£200 COLOR P^GOTO 688' 



2210 ' 

2220 CONSOLE 8.24. 

2230 ' Ricu-ir 



2250 ' 

££iifl CLfJpRINT'Hor 

NS <d«buti" 

£270 PRINTIPRIN^■^ 

en lecture" 

2286 PPINT:PRINT"f 



lur 'ENTRE 
" A»OCHR* 



2290 LOCATE B,7:**=INPUT' 

■ 13' THEN 2290 

2388 OPEN'r^l.-CHSS^ESSlNS' 1 

£318 QPEN"0".£,"LFFT: I 30 ■ "pour INPRINER 

£3£6 • 

£338 ' 

£348 IF E0F<1) THEN £778 

£358 INPUTI1.MI.FO-; 

£766 FOP C-i»8 TO 3 

£378 INPUT*!. CP-.":\ itFOR .-. = TO 7: INPUT 

fI,YlM<C;., JX>!NEXT J'i 

£330 DEFGR*' ■:■:. ' =, 1 ■..■:■:. 6 '.Y IMC'-;, 1>,YU< 

C , ..£>,Yl^'C-:.3''.Yi-..C-:.4 ,Vi:n[!;,5>.VUi 

C':,6>,Y|ijfCK,7'' 

£390 NEXT CI 

£400 ' 

£410 CLS!PRINT:PPINT TAE'15'tH 

£430 FOR C!!=8 TO 3 

£440 COLOR CP-.i". i:L0C«TE I0*C ^*5, 18! PRI 

NT GRfC\>' Deisin; 

£458 FOR T'.-B TO 7 

£468 LOCATE ?*C-:t5. 12*1 ■.: PRINT USING""**: 

"iY[!;cc;:, [•::'' Chirrres... 

£478 NEXT IM 

2488 NEXT CM 

£496 IF FG%"8 THEN ATTRB 8,0: ATI="ATTRB 

0.6 ":;-:£--. = 0:Y£--. = 0:G0TG £530 

£58B IF F88-1 THEN ATTRB 0. I I AT«»"ATTRB 

8.1 ":X2'--.-e: ■.£'.= ): 'JOTO i?70 

2518 IF FO^=2 THEN ATTRB !,0:ATI="ATTRB 

1.8 ■|«8Js-1!Y£-, = 0:GmTi;' i?70 

2520 kT*«"HTTSB 1.1 ":ATTRB l> UK25i*l!Y2 



£538 


LOCATE 15,4!C0L0R 


CR:-;i0' 


PRINT GRf 


£546 


LOCATE 16+;:£':.4:C0L0R CR 






























-•::COLOR CRK 














£530 


:PPINT*£ 






























,-n'« 


--:;]-«£. .: E. I HC - - • f i 


IHttl 


■SCR^tCM), 










£650 


FOR 1?.'Q TO 7 


... V1 ., 














PRINTt2:NE;:T l - . 






£690 


PRINT»21PRINT#2 
PRINT-Voulez-"Cuj 


«*r 1 


sutte ( 




> ' 
















IF R*=CHR«v2^ OR RI=CHRt 




















£758 


IF Rt="r." OP P«="\ 


■ THEN 


CL0SE:G0T0 



'760 GOTO £7£0 

■"70 CLOSES ClSs^PiN'-il N'Y A PLUS DE OE 

;.■::. sup :z r ~:. ■ ~"s c pint 



£"?£■ LOCATE .?.7::-:si = :mf u i-' : 

I' 13- THEN £790 EL3E 138 

£900 ' 

E:!C rONSCiLE 0. i J. ■:■ ■:■■ SCPEE" 

:CLS:EN[J 



^ DEFENSIVE 



Suite de la page 2 




CALL HCHARIV. 
GOTO 3310 
530 REM 



F 8=1 THEN 4580 ELSE 4660 
OR 1=1 TO 5 

(Y-l THEN 4tl30 

.-42 THEN 4610 ELSE 4650 

IV-IK1 THEN 4630 
CALL BCHAR(V-I,H,TR) 
CALL HCHAR(V-I,H, 156) 
CALL HCHARCV-I,H,TR) 
IF L-43 THEN 4660 ELSE 4700 
IF IV*I)>24 THEN 4700 
CALL 6CHAfi(V*I,H,TR) 
CALL HCHAR(V+I,H,I36) 
CALL HCHAR<V+I,H,TR) 
IF L-44 THEN 4710 ELSE 4730 
IF <H+I>>32 THEN 4730 
CALL BCHAR<V,H+I,TR> 
CALL HCHAR(V,H*I,137) 
CALL HCHAR(V,mi,TR> 



47BO 
4790 
4 BOO 
4910 
4B20 
4830 
4840 

4B69 

4B70 
4BB0 
4890 
4 TOO 
4910 
4920 
4930 
4940 

4960 
49B0 
4990 
5000 
3010 
5020 
3030 
5040 
5050 
5060 
5070 
5080 
3090 
3100 
3110 
5120 
5130 
5140 
5130 
5160 
3170 
5180 
5190 
5200 



IF L=45 THEN 4760 ELSE 4B0O 

IF IH-IK1 THEN 4B00 

CALL BCHAR(U,H-I,TR) 

CALL HCHAft!V,H-I,157) 

CALL HCHAR(V,H-I,TR) 

COLL SOUNDl-1000,-5,0) 

IF TR=D£ THEN 4S20 ELSE 4B50 

REM 

HD=1 



GG-0 

TT=0 

IF SC<1 THEN 5310 

IF SC<10 THEN 4930 ELSE 4930 

CALL HCHAR(1,30,49) 

QOTO 4960 

CALL HCHAR(1,30,32) 

(lUSDti 5020 

GOTO 1660 

REM 

REM 

RANDOM I ZE 

JI-V5+CH 

JU-V5-CH 

JY-H5*CH 

JT-H5-CH 

B1-INT((JI-JU*11»RND)+JU 

B2-INT ( ! JY-JT+1 !»RND) +JT 

IF Bl>24 THEN 3300 

IF BK20 THEN 5300 

IF £i2>32 THEN 3300 

IF B2<1 THEN 5300 

CALL GCHAR(B1,B2,BU) 

REM 

REM 

REM 

REM 

REM 

IF LM-1 THEN 5210 ELSE 5260 

CALL SOUNDI-2000,-6,3) 



3220 
B230 

5240 
B2H0 

5260 
3270 
5230 
5284 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 

53B0 
5T.90 
5400 



5420 
5430 
5440 



CALL HCHAR(B1,B2,120) 

IF 81=V THEN 5240 ELSE 5260 

IF B2=H THEN 5250 ELSE 5260 



IF 
GG=1 
J 3-2 

CALL HCHAR<B1,B2,BU) 
RETURN 

FOR 1=1 TO 16 
CALL CDL0R<I,2, 16) 
NEXT I 
CALL CLEAR 

PRINT "VOTRE SCORE EST ":SC 
IF SOSC1 THEN 5370 ELSE 5390 
SC1-SC 

PRINT "RECORD BATTU IM- 
PRINT "HIGHT SCORE "[SCI 
INPUT " VQULEZ VOUS REJOUER IG7N] ? 



PRINT >tl 
IF E»-"0" 
PRINT : : : 



THEN 430 ELSE 3440 



SUITE ET FIN DU PRO- 
GRAMME FANORAMA 
du n" 48 sur TI99 Basic 
Simple. 



3970 FOR H-l TO LEN(A>) 

3980 CALL HCHAR 124, H, ASC (SEG. (A»,H, 1 ) » ) 

3990 NEXT H 

4000 REN MtiaLqua d» dabut 

4010- READ DUREE,NOTE1,NOTE2 

4020 IF DUREE-0 THEN 4090 

4030 IF N0TE1-0 THEN 4010 

4040 IF N0TE2-0 THEN 4070 

4030 CALL SOUND (DUREE-2, N0TE1 , O, N0TE2, 0, 

NOTE 1-300, 10) 



10) 

4080 GOTO 
4090 RETURN 
4100 DATA 
100,932,0. 
4110 DATA 
100,587,0, 
4120 DATA 



SOUND (DUREE, NOTE 1 ,0,NDTEl-300, 



9, 7B4, 100,639,784 



4170 DATA 



4180 DATA 



1397,81 



010 



00,698,0, 100,698,0, 100,932,0, 

00,932,0 

00,932,0,100,932,0,100,698,0, 

00, 69B, O, 600, 932, 

0O,932,3B7,100, 1047,698,100,1 
73,932, 100,1173,932, 100,1175,932, 100,11 
75,932 

4130 DATA 100,1397,1173,100,1397,1173,10 
0,1319,1047, 100,1173, 932, 600, 1047, 8B0 
4140 DATA 100,1397,1173,100,1319,1047,10 
0, 1 173,932, 100, 1 173, 932, 100, 1 173, 932 
4130 DATA 100,1047,0,100,932,0,100,932,8 
31, 100.932.784, 100.932.69B 
160 DATA 100,659,784,100,659,784,100,65 



00, 15: 



1368,932, 100,1368,932 



1,932, 100,1568,932, 100, 



1397,880, 100, 1397,880, 100, 



,100,1397,880 



;O0,1397,8B0, 100, 1319, 7B4, 100, 
1175,698, !O0, 1047,639 

4200 DATA 300,932, 3B7, 100,387,0, 100,698, 
0,200,932,387,200,932,387 

4210 DATA 100, 7B4, 0,100,698,0,100,387,0, 
100, 698,0, 300,932, 387 

4220 DATA 100, 932, 5B7, 100, 1047,698, 200, 1 
173, 932,200, 1 173, 932 
4230 DATA 100,1397,1173,100,1397,1173,10 

', lOO, 1173,932 
4240 DATA 500,1047,880,100,1397,1173,100 
,1319, 1047 

4250 DATA 200,1175,932,200,1175,932,100, 
1 047, 880 , 300 , 932, 880 

4260 DATA 200, 1319, 7B4.200, 1319,784, 100, 
1568,932, 300, 1568, 932 

4270 DATA 200,1397,880,200,1397,880,100, 
1397,880,100,1243,784 

4280 DATA 100,1175,698,100,1047,1319,100 
,932,1173 
4290 DATA 200,698,784,300,784,659,0,0,0 



BULLET 



Vous voici promu arti!leur...Vous devez toucher une 
cible en jouant sur Tangle de tfr et sur la vitesse iniliale 
de I'obus. Le programme vous indique la distance, 
ainsi que la vitesse du vent. Seulement, un gros obsta- 
cle se trouve sur le parcours: un mur tres large et tres 
haut... Et vous ne connaissez ni sa largeur, ni sa hau- 
teur, ni meme sa position. 

G. OSMONT 

Mode d'emploi: 

XEQ "BULLET". Affichage de NB ALEA < 1? Entrer un nombre infe- 

rieur a 1 . Puis le programme affiche: 



V\P 



AA 



La vitesse du Vent. 
La distance de la cible. 

Ensuite le programme vous demande I angle de tir (en de 
la vilesse initiale. Resultats possibles: 
-DANS LE MUR: vous navez pas tire assez haut. 
-SUR LE MUR: I'obus a bien passe la premiere arete du 
n'a pas assez d'energie pour le franchir complete merit. 
-TROP COURT: I'obus a franchi le mur mais esl retombe avant la 
cible. Le programme indique la distance entre la cible et ("impact. 
-TROP LONG: I'obus est tombe apres la cible... 
-GAGNE: vous avez louche la cible (a 10 metres pres). Le pro- 
gramme vous precise en combien d'essais. 
Vous pouvez avoir la solution en faisant XEQ 08. 
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&3BL. 



16:83 -1.64 


33 « 


66 HVIEN 


99 PSE 


132 TONE 5 


165 BEEP 






" \\ 


8ULBL -BULLET- 


34 288 


67 PSE 


188 GTO 81 


133 TONE 3 


166 GTO 89 






>\V > 


82 -«•£ OSflOHT**- 
63 FIX i" 
84 CF 'A 


35 * 

36 INT 

37 STO 84 


68 -Lfl SOLUTION- 

69 flVIEN 
78 PSE 


19HLBL 83 

182 RCL 81 

183 RCL 82 


134 RVIEU 

135 PSE 

136 CLIi 


16?«LBL 87 






^ A*wl *" 


168 CF 85 

169 RCL 83 


198 -CfiLCUL D UNE" 


227 RCL 89 


256<L8L 19 


85»L81 88 


38 RCL 81 


71 -FBIRE XEQ 88" 


184 * 


137 flRCL 88 


178 Xt2 


199 -JES SBLUTIOHS- 


228 SQRT 


257 1 


86 -IHITIHLISBTION- 


39 RCL 82 


72 RVIEU 


185 STO 88 


138 RVIEU 


171 RCL 86 


289 RCL 85 


229 STO 89 


258 SI- 66 


87 -HB BLEU <1 ?■ 


48 » 


73 PSE 


186 XEQ 87 


139 PSE 


172 Xt2 


281 RCL 81 


238 RCL 88 


259 GT8 B9 


88 TONE 9 


41 RCL 83 


744LBL 81 


187 FS? 85 


148 GTO Bl 


173 / 


282 - 


231 RCL 89 


266<LBL 11 


89 PR0I1PT 


42 » 


75 -UNCLE ■>■ 


188 GTO 84 


141*LBL 85 


174 4,9 


263 STO 88 


232 X>V 


261 RCL 86 


18 STO 88 


43 STO 85 


76 TONE 9 


199 "SUR LE NUR" 


142 -TROP LONG- 


175 « 


264 4,9 


233 XOY 


262 RCL 16 


11 1588 


44 8 


77 PRONPT 


118 T8NE 5 


143 TONE 5 


176 CHS 


295 ST« 88 


234 STB 86 


263 - 


12 * 


45 STO 89 


78 -VIT INIT ?- 


111 TBNE 3 


144 TBNE 3 


177 ENTER* 


296 RCL 91 


235«LBL 69 


264 STO 86 


13 288 


46 XEQ 99 


79 TONE 9 


112 HVIEU 


145 RVIEU 


178 RCL 98 


267 ST« 88 


236 RCL 66 


265 RCL 87 


14 + 


47 58 


88 PRONPT 


113 PSE 


146 PSE 


179 RCL 87 


298 RCL 84 


237 1/X 


266 RCL 86 


15 INT 


48 » 


81 P-R 


114 GTO 81 


147 CLR 


188 • 


289 ST/ 88 


238 4,9 


267 R-P 


16 STO 81 


49 5 


82 STO 86 


115+LBl 84 


148 flRCL 88 


181 RCL 86 


218 RCL 88 


239 » 


268 STB 86 


17 XEQ 99 


58 * 


83 RDH 


116 RCL 86 


149 flVIEN 


182 / 


211 SQRT 


248 RCL 85 


269 RDN 


18 588 


51 INT 


84 STO 87 


117 RCL 87 


158 PSE 


183 * 


212 STO 68 


241 • 


276 STB 87 


19 » 


52 STO 18 


85 RCL 18 


118 • 


151 GTO 81 


184 RCL 84 


213 RCL 65 


242 STO 67 


271 FIX 2 


28 188 


53 -VIT. VENT: ■ 


86 ST* 86 


119 4,9 


152«LBL 86 


185 X<Y? 


214 RCL 61 


243 RCL 61 


272 -BHGLE= ■ 


21 * 


54 ARC! 18 


87 1 


128 / 


153 -GBGNE- 


186 SF 85 


215 - 


244 STO 88 


273 flRCL 87 


22 INT 


55 TONE 5 


88 ST* 89 


121 RCL 85 


154 TBNE 8 


187 RTN 


216 RCL 82 


245 XEQ 67 


274 BVIEU 


23 STO 82 


56 flVIEK 


89*LBL 82 


122 - 


155 TBNE 8 


188+LBL 99 


217 - 


246 FC? 65 


275 PSE 


24 XEO 99 


57 PSE 


98 RCL 81 


123 STO 88 


156 TONE 8 


189 RCL 88 


218 STO 89 


247 GTO 18 


276 -VIT.= - 


25 1588 


58 PSE 


91 STO 88 


124 UBS 


157 TONE 9 


198 9821 


219 4,9 


248 RCL 81 


277 flRCL 66 


26 « 


59 -IISTIIHCE: - 


92 XEQ 87 


125 18 


158 RVIEU 


191 * 


228 ST» 89 


249 RCL 82 


278 RVIEU 


27 288 


68 HRCL 85 


93 FS? 85 


126 X>V? 


159 PSE 


192 ,211327 


221 RCL 81 


258 * 


279 PSE 


28 + 


61 TONE 5 


94 GTO 83 


127 GTO 96 


168 lis 


193 * 


222 RCL 82 


251 STO 88 


288 FIX 8 


-29 UIT 


a HVIEU 


95 -MNS L£ UK- 


12B RCL 98 


161 SSCL 89 


194 FK 


223 * 


252 XEQ 87 


281 GTO 96 


38 STO 83 


63 PSE 


96 TONE 5 


129 X»? 


162 -F ESSI1IS- 


195 STO 98 


224 SI. 69 


253 FC? 95 


282 .END. 


31 XE8 99 


64 PSE 


97 TONE 3 


138 GTO 85 


163 flVIEB 


196 RTH 


225 RCL 84 


254 GTO tO 


■ 


32 588 


65 -POUR AVOIR" 


98 RVIEU 


131 "TROP COURT- 


164 PSE 


W7*LBL 88 


226 ST/ 89 


255 GTO 11 





LINEARISATION F x702P 



Voici un programme de linearisation de Cosinus et de 
Sinus. II trouve aussi les primitives de Cos. et Sin. 
Simple d'emploi, il s'utilise avec ou sans imprimante 
FP-10de CASIO. 

Ce programme s'adresse a tous ceux qui ont a ma- 
nier des formules trigonometrtques, et facilitera le cal- 
cul d'integrales. 

Laurent GRAVERET 



Utilisation du programme: 

-Le charger dans un FX 702P. 
-Connecter ou non la FP-10 (si impression desiree). 
-Lancer le programme par F1P0. 
-Affichage :C0S.1 SIN:2 PRIMITIVES. 
-Appuyer sur la louche numerique correspondents a voire choix: 

Pour COS:-Appui sur 1 
-affichage: N? 

-Introduire la puissance voulue puis EXE. 
-Ouelques secondes d'attente. 

-A la question PRT ON repondre O si imprimante 
connectee et N dans le cas conlraire (enregistrement de 
la reponse grace a la foncion KEY). 
-Affichage de la linearisation de Cos. 
Pour SIN: meme suite d'operations. 
Pour la PRIMITlVE:-Repondre 3. 

•Puis 1 ou 2 si on veul prim (Cos.) ou prim 
(Sin.) 

-Proceder ensuite comme pour les deux lineari- 
sations. 

Ce programme s'utilise en DEFM2. Restrictions aux linearisations: n 
doit etre enlier et.strictement positif et inferieur ou egal a 34 (au 
dessus: affichage des coefficients en notalion scientifique qui en- 
trame une perte de precision). II esl necessaire. avant toute exploi- 
tation, de charger en memoire certaines donnees (voir liste). T$ 
contient un espace: seul le contenu des variables alphanum£riques 
est obligatoire. II est par contre inutile de charger PS et OS puisque 
leur contenu depend du choix que vous ferez au debut du pro- 
gramme. C$ : S$ ; XS contiennent des caracteres speciaux que tout 
utilisaleur d'un CASIO FX 702 P se doit de posseder (ils servent a 
I'impression des resultats sur FP10) pour les obtenir: CLRALL. 
DEFM 20 retirer les piles, environ 1'10", les remeltre, lister les varia- 
bles (LISTV) a limprimante. II est neanmoins possible de se servir 
de ce programme sans ces caracteres speciaux. il suttit de charger 
dans C$ , SS . XS leur contenu correspondant en caracteres "offi- 
ciels". 



J l: 1337 STEPS 


THEH 58 


88 IF E«8;Pt=H! 


132 IF fl=8;PRT R!;B 


M=l/ 




1 KBIT 1 


48 PRT «<IV2IB1! 


)8 Z=FRBC ((H-D/4 


(I)/2I«:END 


E = 1.5 




2 PRT PUfV 


58 PRT «!:Ht:EHD 


):IF Z>!;2=1 


134 IF B=liPRT Itifl 


F = 1.5 


>^^ c 


4 IF KEY=" - THEN 


52 IF B(I)=1;PRT 1 


92 Z=(-l)t2:BS6 14 


(i)i«*!Ptmiet 


( =! 




I 


!;fl:Ft:B19!::60 


94 IF (EV»T THEH 


i:SflT0 138 


Ht = )*C 




6 IF KEY="r;Pt=6 


10 68 


183 


136 PRT R(:fl!l);6!! 


1 =2 




II60TB 122 


54 IF B(I)>tim R 


96 TOE 7S1F E>!;P 


MIBIHII 


It =(C0S X) 




8 IF KEY="2";Pt=H 


1; 


t=S! 


138 fi=fl-2:HEXI I : PR 


h -an ni 


^-^^WJS 


CttTO 8S 


56 IF Him BID 


98 IF E=9!Pt=Ct 


1 HCENt 


Lt =PRI« 




18 IF KET'T THEH 


;6«;f*;T»;Mi:6 


188 !!=Xt:IF M TH 




Ht =SIH 




4 


0T0 69 


EH 183 


Pi: 71 STFPS 


H = 1 




12 fit MX 1,14) 


58 PRT KDlWM 


161 IF Z=l:PRT PC 


16 IHP T.H:E=FRR 


Bt =C0S 




14 IF KEY=™ THEN 


liPlifllW; 


HlEHD 


C (H/2):F=IHT H 


PI =sin 1 




14 


61 B=fl-2:HESI !:PR 


183 PRI K(;:BSBI8: 


'2+1: IF H=l THE 


lt=i 


MM\ 


16 IF KEr=T;PM) 


I Hi: END 


PRT BIW2KH 


H 18 


!l=* 




CBOIO 62 


62 Pt=Ht:6SB IliGS 


):V!i:fl=H 


28 FAR 1=8 IB F:B( 


St =sin 


M 


18 IF KEWiPMI 


8 14 


184 F3R 1=1 TO F 


|+l)=Hi/(Ii«(H- 


Tt= \ 


/MijM\\ 


1:6010 14 


64 IF KEY=T;l»E 


186 IF H(I)=l;PRT P 


I)!){tOT 1:RET 


01=/ 




28 Z=FRflC («/4):IF 


J:!l=XCPI=St 


!;fl:SS::5! T '": !! 




Vt=t( 


\ yw* i 


Z«1;Z=1 


65 IF H=1;PRT PUB 


8 


P2: 27 STEPS 


Ht = ! 




22 8SB I116SB 12:6 


«'*PlE» 


188 If B>B IHEH 114 


18 FBR 1=2 10 F SI 


XI =i 




SB 14 


66 PRI LliJt!:BS8 


118 IF fldv.BiPB! S 


EP 2:fl(P=-8U> 


Y =7 




24 IF KEOT" THEH 


IBiPST BS:2t!H- 


1; 


:HEXT I: (EI 


Z = 1 




32 


l);Vt::fl=H 


112 prt nnnm:i 




18 = 6 




26 KOBE 7: IF E=8;P 


68 FOR 1=1 10 FilF 


HB 


P4: 44 STEPS 


91 = 1 ■ 




t=St 


«»8 THEH 78 


114 IF B(I»I!PRT R 


18 PRT Bl 






28 If E«8;Pt=Ct 


76 IF fl(I»8;PRT R 


t; 


21 IF KEY="" IHEH 






38 «t=Xt:SBT8 36 


tl 


116 IF fl=l:PRT Bill 


26 






32 IF E=81Pi=Hi 


72 IF B(I)=-21PRT 


:8$lPtiTt:6f::S 


38 IF [EV="1":RET 


1 


MS :1 SIH 12 P 


34 IF E>8:Pi=0i 


._n 


110 128 


IB IF KEY«"H" IHEH 


CBS :l SIH :2 PRIHIT 


IVE :3 


35 IF H=1;PRT ■-"; 


14 IF BBS fl(D=2;P 


118 PRT fl(I):St:Pli 


2« 


IVE :3 


H? 


Pt:Bt;"tC":EHO 


RT «!!Ht:E«B 


littl 


51 SE1 






36PRUt;Kti:6SB 


76 PRT 1(1)/2IBI8 


128 B=B-2:HEKT I:PR 






PRT O'S 


18:PRT HHZill 


liHCEHB 


i mm 


P8: 1! STEPS 


(CBS X)t 4 = 


(COS St 2 = 


t;2t(H-l);Vt;:B 


7! IF B(D«l:PRl R 


122 BSB ll:6SB 14 


18 PRT "fills" =", 


I' 8<(cos 4H 4ca; 2 


1' 2»(i0! 22+ 1 


--N 


I; 


124 IF KEV="1";H1BE 


:RET 


i* 3 ) 




38 FOR 1=1 10 FilF 


3! IF B=1!PRT P$;T 


7:lt=XI:Pt=CS 








E<8;B(I>MI(I> 


«:Qt!»t:EHB 


126 PRT Jt::6SB 18: 


m VBR LIST 


(SIH J)t 2 = 


COS :l SIH 12 P 


4! IF B<8 THEH 32 


82 PRT fl(l);ut;B;6 


PRI Dt;2t<H-l); 




•1/ 2<(cos 2i-l ) 


Ii'E 13 


42 IF BUDBIPPT R 


liPtifliBi 


m:M 


(BR: 46 PRG: 152! 




1! 


1: 


14 B=A-2:KHT !:PR 


128 FOR 1=1 TO F 




PRIH 'MS Ml 7 = 




« IF H(!)=-2;PRT 


1 HflEHB 


138 IF «(T)=1IPRT P 


a =e 


1/ 64*' 1/ 7sin ft* 


PRT Ml 




86 6SB tl:GSB 12:1 


f;fl;B);:80TO 13 


st =fRi m 


H 5sin 51* 21.' 3sin 


(COS KM 3 = 


46 IF BBS <B(I»=2 


F E=e:Pt=Bt 


8 


Ct =MS 


3x+sin t )*£ 


V 4*(co5 3i+ 3 



PARACHUTISTE 



Ce programme est un jeu qui dans son principe est 
tres simple: Le but est de ramasser le plus de parachu- 
tistes. Si 3 parachutistes tombent a I'eau, eh bien c'est 
perdu, mais il arrive de temps en temps qu'HECTOR 
permette plus d'erreurs que de manoeuvres. 
Le mode d'emploi est dans le programme. 

L.PICARDA/N.CABANEL 




HECTOR 
Vfft 



N ERROR960 

95 COLOR 8.1,7.382- 



PC-i 



RE-8 «■" 



tee POKE&FFie.i 

IBS WIPE G0SUB758 

lie DIHPK10) ompzae> &HWC1B) 

115 RESTORE G0SUB528 

120 G0T08BB 

125 UIPE'CDLDRB,2,6. 1 GQSUB1090 ' CLS 

130 LINE2B.229.220.22B,1'LINE220, IB, 1 LINE20.18, 1 
■LINE20,22B,1 LINE22. 218. 218, 219, 2 LINE218, 12, 2 'LI 
NE22.12.2'LINE22,21B,2 LINE24. 216. 216, 216, 3 'LINE21 
6,14,3'LINE24.14,3 LINE24, 216. 3 LF.NE24, 30,216, 30- 3 



■-•• 



G0SU859B G0SU9S13 ' BI"2 ' B2"I ' PQ-B' ER-8 

FOR 1-1 TO IB Pl(I)-0'P2CI)-B'P3t I)-0'NEXT 

OUTPUTM7I, 175,214, 1-80UH} 2. 683 



>-2'Pl(I-l>B'PZ<I >"l'P2C I-I J-0"P3< I >-2'P 
GOSUB29B 
1IF 1-9 THEN GOTD240ELSE G0T023B 



>"2PKI-1>B P2M)-2'P2CI-1>-B>P3<I)-2'P 
.' i GOSUB29B 

'f 1*9 THEN GOTQZ83ELSE G0T0273 
S GOTO 150 

t T-jaY(8)>Bl-0'B2»0 B3-B 
! PLOT 28.45,160. 12,2 
! LIFE 49,45,66,43,8 
S LINE 99,45, 116, 45, B 
! LINE 15B. 45, 166,45,0 
! IFT-1THENBI-BI-1' IFB>BTHEN6I-1 
) IFT-2THENBI-BI*!IFBl-4THENBI-3 
5 IF8I-1THENB1-1 B2-0S3-0 
i IFBI-2THENB2-1'S3-0'BI-B 
S IFBI-3THENB3-1'BI-0B2"B 
.' 0UTPUTH1B,1BB,6B,B2 
S OUTPUTM3I, 150.60,83 
! OUTPUTM2I,58,60,B1 
! PLOT 29.45,188,12,2 
1 LINE 99.45, 116, 45, B 
! LINE 15B, 45. 166,45,8 
! LINE 150,43.166.45,0 
5 0UTPUTMi.185.7fl.P2C6) 
! 0UTPUTM4I,35.78.PK7) 
5 0UTPUTPI4I, 155.70.P3<5) 
! 0UTPUTJ14», 115.1B8.P2<5> 
5 QUTPUTri4i.70.iee,PK6) 
1 0UTPUTM4I, 160,10B,P3<4> 
5 0UTPUTM4«,65,13B.Pi;5> 
5 0UTPUTW4*. 125. 130.P2C4J 
1 0UTPUTM4»,165.13B,P3<3> 
1 0UTPUTM54.95.16B.PH4! 
5 0UTPUTf15«.135,16B,P2<3> 



4?.? nijTF'..'TN?» !70.160.P3(2 

435 0UTPUTM5*. 115. " 

440 0UTPUTM5«, 145 

445 OUTPUTI16* , 175 

458 OUTPUTnS«.lL 

455 0UTP'.'TN~« 135. 2 10, PI- 3;. 

469 QUTPIJTM6«,150.214,P1<1> 

4d5 ' TESTS -:SI PRPRCHUT. T0I1BE R L'EAU) 

478 Gt=P0INT'. 55, 67 > Q2-P0IHT< IBS, 67 j Q3-P0INK 155 
,6?> 

475 IF Bl-1 AND Ql-2 THEN P0-PD+2 ELSE IF Ql-2 TH 
EN ER-ER*1 GOSU8630 

498 IF B2-1 AND 02-2 THEN PO-PD+4 ■ ELSE IF 02-2 TH 
EN ER-ER+1G0SUB63B 

485 IF 83-1 HND 03-2 THEN P0-P0+2 ELSE IF Q3-2 TH 
EN Efi-ER+1 GQSUB63B 

490 OUTPUT" SCORE". 30,25,3 

493 OUTPUT PJ, 110,23,0 

508 OUTPUT PO. 110.25,2 

503 IF PO>-200 OR PO>300 THEN ER-B ■ G0SUB615 

SIB PJ-PO 
313 RETURN 

529 'CREATION DES CRRflCTERES GRflPHIOUES 
523 DRTH20.16, 112,8,288.0,280.0,254,8.254,8-192,8 
192, B, 192,8, 120,8.64,8,65,8,255,0, 1,0, 1,0,233. 127 
233. 127.1.0,3, 126,3,128.3,128 

538 DATA1 12, 0,206, 8, 280, 0,234,0,234, 0,192,0,192.0 
192.8. 128,0,64, B, 66, 8,235. 8, B, 128,0,64,254,79,255 
39,8. 16,8.24.0,26.8,15 

535 DRTH1 12, 8, 2BB,B, 280, B, 254, B, 254, B, 192, 9,192,8 
192,0. 120,8,64,0.64, 128, 255, B, 2, B,4,8,2B1 ,235, 147 
224.0 

71,226, 136,61,224,7, 164,9,72, 
0,8,8,0,9,144,9, 144,4,32,3.19 



19.36,36, 16.72,9.144 



0,2B,8.24,B,36,B,176.1,1 
60,12.0,3, 192. 1,160,9, 144,15, 144, B. 128,0, 12B.B.132 
,0.0,0,8,8,8 

530 DRTR0. 0,0, 0,B,B, 8,8.8, 136.8. 136,8,16. 1,224.2. 
192,2.208,2.249.9.128,0. 129, 1, 148- B, B, Bi 8, B, 8,8.0, 




355 DATA 9, 8,8,8,0, B, B, 8, 255, 12B, B, 8, B, B. 28, 235, 2 
8. 16.69,56. 127,244,233,242,244,01.244,61.244,61.60 
127. 31. 254, 9,6, 29, 28, B,B 

565 FORI-RTD43009 RERDJ. POKEI , J'NEXT 

578 RI"INT(fi'256> R2-A-R1*236 

375 P0KE24548.R1 P0KE24347.R2 

568 P11I-CHRK 192 I ' M2B-CHMC 193 ) iRIMHNI 194 ) M4« 
-CHRK 195 ) i n5«-CHRi< 1 96 ) ' K6B-CHRBC 197 I M7I-CHR*: 1 9 
8> 

585 RETURN 

398 PLOT 28,45, 16B, 12,2 

593 LINE 43.45-6£.-43i0 

609 LINE 99,45,116,43,0 
603 LINE 150,45,166.45,0 

610 RETURN 

615 TONE 100.18BTQNE 10B,2BB'TONE 188, 3BB 

620 0UTPUTM4t,26,214,3'0UTPtJTr4l.46,214,3'0UTPUTri 
4*, 66-214, 3 

623 RETURN 

630 IF ER-1 THEN QUTPUTt14«, 66. 214-B'TONE 188.299' 
TONE 1BB,388'T0NE 18B,48BT0NE lBe,588T0NE 100, 6B 
8 TONE 188,100-RETURN 

635 IF ER-2 THEN OUTPUTMI, 46, 214, TONE 108, IBB 
TONE IBB, 280 TONE 1B8,300'TONE IB0.480'TONE 109.50 
B TONE 180,600'TONE 100, 109 ' RETURN 

640 IF ER-3 THEN 0UTPUTM4«, 26, 214,6 TONE 188,369' 
TONE IBB, 488 TONE 108,3e0'TONE 108,660'TONE 180,78 
8 TONE 188,188 TONE 188, 18B 

645 OUTPUT PO. UB, 25, B> OUTPUT "SCORE". 38,25, 8'SDUH 
D 7.4896 

658 IF PO>RE THEN G0T0655 ELSE G0T0685 

655 OUTPUT "NOUVEAU RECORD ! ! I " , 6B, 178, 1 QUTPuT"BN 
CIEN RECORD PAR "+fiN»-40, 158,2 

669 RE-PO 

665 CURS0R6B.149PEN 3' INPUT"VDTRE PREHOPI '"iN« 
~ 1-NID»'N»,1,8:> 



67S 



NNB 



680 GOTO690 

695 ZX4-" RECORD PAR "+PN»+" AVEC"*STR»<RE ) OUTPUT 

ZX*. 121-3fLEN' I:-;*.', 140.3 G0T0728 

69B 9UTPUT"UHE AUTRE PRRTIE CIWO '".58,26.1 

695 2X«"INKEYia38> 

700 IF ZX»-"0" or ZK«-"o" THEN GDT0128 

705 IF 7>:t-"N" OP Z>:S-"n" THEN G0T0735 

710 IF FIRE>:B..""B THEN G0T0129 

715 FLASH l,2'G0Trj695 

~Zy TV.**"PAS DE NEILLEUP. SC0fi£" 

725 FOR K"I TO 109 SOUND 0,24844 OUTPUT TX«,52.i2 



A INTEND' 1,4 >>■ SOUND 5.398 OUTPUT TX«, 52, 124, B NE 
■■:! f.OUHC- 7.4B96 
730 G0T0699 

■■■■■', NIPE ■jJLOP 9.1.2,4 

-40 OUTPUT" AU PE'-'OIP. ET A BIENTOT. .", 30. 120.2 

745 END 

75> 'iOLOPO, 1.4.3 

755 LINE2B,220,22a.23B. I LINE220. IB. 1 LINE20.10.1 

LIHE29, 228,1 LINE22, 216, 218.218. 2 LINE218, li,2 LI 

NE22.12,2'LINE22.i:ia,i: LlNt24,216, 216, £16. J L1NE21 

-.14.3 LENE24.14.3 LINE24.216.3 
--:e OUTPUT" ft PAPACHUTISTES f I ", 68. 130. 3 
765 OUTPUT" PAPACHUTISTES ",61.129.1 
776 OUTPIJT"ttttfltttttttftf1tf.60. 139.1 
775 OUTPUT" tt M Mft fit f MM***-, SB- l 4 e, 1 

76B output "l.p::pp[~.^.';rsamel",6B. iaa.2 

765 OUTPUT" " .68, 92. 3 

79B .7>:*-"<C> COPYRIGHT PICARDA 

8. CABANEL 1984" OUTPUT 2X«, 38,59.2 
UTPUT ZXt,31,51, 1 

:?•:■ PHIJ3E 2 RETL'PH 

-JOO ■ MENU '"£'■==-. 

895 WIPE 

819 LINE2e,229,220.220. 1 LINE228.1B.I L1NE2B.1B.1 

LIN£28,22B,1 LINE22. 219.218.218. 2 LINE3IS. 12,2- LI 
NE22,12.2'LINE33. -1= i l:',E24 . us. ;!£. =i Sl 3 LINE21 
6,14.3'LINE34.!4. i l!NE=4. 316.3 

815 OUTPUT"OUE DESIREZ-VOUS FRIRE '",36,158.1 

628 OUTPUT" ■ 39,139,1 

625 OUTPUT"!. JOUEP ",38.128.2 

838 0UTPUT"2.V0IR LES REGLES DU JEU" . 30. IBB. 2 

935 OUTPUT " 3. SAUVER LE PROGRAMME SUR K7",38,89.2 

648 0UTPUT"4.S0RT1R DU PROGRRIWE" . 39. 69. 2 

845 OUTPUT"VOTRE CHOIK "M29,3B,3 

958 OUTPUT M3«. 196,288,3 

955 OUTPUT P!2i,35,28B,3 

B60 ZX»-INSTRI( I> 

=^5 TF ZX«-"1" THEN G0T0125 

970 IF ZK«-"2" THEN GOSUB990 

675 IF ZX«""3" THEN G0SUB89B 

960 IF 2X«-"4" THEN G0T0735 

883 FLASH 1 , 2 i FLRSH 3,2 FLASH 3.2GOTQ860 

890 ' SAUVEGAFt'E [■'.' PF-:. "-»'"■!£ SUR K? 

893 WIPE 

900 OUTPUT "REMBOB INEZ LA CASSETTE SI CELA EST". 15 
,268, 1 

905 OUTPIJT"NECESSRIPE, EN APPUYANT SUP RET0UP",13 
. 188,1 

910 OUTPUT"TRPEZ UNE TOUCHE" .78. 56, 3 FLASH 3 ZX1- 
INSTRiC 1VTRPE 1 

915 WIPEOUTPUT"P0UP ARRETEP LE REPIBOE IMAGE, APPUV 
EZ", 12, 100, 1 

929 OUTPUT"SUR UNE TOUCHE. .". 79. 168. 1 FLRSH 1 ■ Z>:« 
■INSTPiv ! VTAPE 9 

925 WIPE 'OUTPUT" POUR SAU'.'ER LE PR0GPAMI1E. APPUYEZ" 
,24, 200-1 

930 OUTPUT "SUF: EIFil'JFE E T lE: t -. = E... Ja.IBe.L 

y-.^ outfu'-tafe: ..'■: *:.:^e ~l ■■■ = -_-=:- 3 z>:»- 

INSTRIt I ■• 

940 WIPE 

945 OUTPUT "SAU'.'EGARDE DU PRGGAPIinE EN C0UP = ...",1 
5. 200. 3 'FLRSH 3 

950 P0KEiFF36, I SAVE 

955 GOTO800 

960 ' TRAITEflENT DES ERREURS 

965 NIPE 

978 ZX«""IL Y fl UNE EPREUR"*STR*. EC ■-" A LA LIGNE 

"+STR».:el;' output z;-:*. i2i-3ilem- z:-:*>. 12B,3 

975 CURSOR 0.80 REM 1 EDIT EL 

980 G0T01B15 

985 WIPE 

990 OUTPUT "PARACHUTISTES - PEGLES DU JEU". 35. 210, 



196.248,196,2 



9?5 LIKE f. 

iaaa line 9,220,240.220.2 

1885 LINE 0,10,240,18.2 

!*!0 RETURN 1 

1015 OATRLE BUT DU JEU EST TRES SIPTPLE.IL V'OUS SU 
FFIT DE PATTPHF'-F ' ?- PA^AIHU 1 "; = T ES O'JI T0I1BENT DE 
.L'HELICOPTERE ■ EN HAUT A DPOITE .•■ FRITES LE MEILLE 
UP SCORE ET C'EST.MNS LA ROCHE ATTENTION 111 

HECTOR N-EST PAS SI 

,,.!,:. r.ATMHEUHHrn ' -UE LP LMfi IL ■'■J'jS DONNEPH . DE TE 
MPi, EN TEMPS UNE PET I TE . CHANCE. . . . . PEnrtROUE VOUi 
N'AVEZ p. TEN R PEPDPE.MEHE PAS LR VIE...nAIS BONNE 
CHANCE. TOUT DE HEME.. 
1823 REST0RE1915 
1038 Z1-180C"! 

1935 G0SUB98S 

1048 FOP 1-1 TO 12 -READ Z:-:« OUTPUT ZX*. 12!-3tLENv 

zxtj.n.c 

1045 Z1=Z1-15 C*L*1 IF C-4 THEN C-l 

1050 ne:-:tzi-i50 l=i 

1^55 pause 16 flaih pause 10 flrsh pause 2 fl 

RSH 0.50 

!0-:r- '7,0^1.18985 

1065 FOR [-1 TO 4 READ ZX* OUTPUT ZX». 12l-3tLEN(Z 
Xi'.Zl.C 

1.V.--0 Zl-Zl-15 L-L + I IP L-4 THEN C-l 

1075 NEXT 

1880 PAUSE 5 FLASH 9 PAUSE 5 FLASH 8PRUSE 2 FLRS 
H 8,50 

!*35 GC1T0999 

1090 IFPOT':a;'.-20OTHEN OUTPUT "6EN OUOI ON A PERDU 
SON CONTROLLEUR '".30 

[.-.-■ : 'ouei-o '.■■■:■ --I...A-EH:- ; : gosubibss :otoi099 els 

E PETUPN 

1895 LINE39.220.220.228.I L1NE220.10.1 LINE20, 10, 
1 1 INEZ'0. 330. 1 1.1NE32. Z1S. 313. 318.3 LINE318. 12,2 L 

i'rr.ZZ !3 3 1 INE33 31S.2 LiNE24 21-£. 2!£ . 216, 3 LINE2 
18. 14.3LINE24. 14.3 LINE24.21£,3 
11C0 RETURN 



PISTE 



Vous voici tranforme en pilote de course et devez faire 
le plus grand nombre de tour le plus rapidement possi- 
ble, sans sortir de la piste. 
Bonne chance! 

Christophe PELLETIER 

Instructions: 

En faisant RUN. un circuit apparait sut I'ecran. Vous vous trouvez 

,iu volant dune voilure symbolisee par un point. La voiture peut se 

manoeuvrer dans 8 directions, grace aux touches de deplacement 

du curseur. La voiture dispose dune vitesse rapide et dune Vitesse 

lente. On passe de I'une a I'autre en appuyant sur la louche fonction 

6. 

CANON X-07 




POLE POSITION T 




ILS SONT TOUS LA ! 

Retrou vez chez vous les super-stars desjeux d'arcade d' ATARI, 
Us sont tous la : des celebrissismes PAC-MAN ou GALAXIAN 
jusqu'aux recents JUNGLE HUNT ou POLE POSITION. Le gra- 
phisme, les couleurs, la rapidite : tout y est, il ne manque que le 
monnayeur et I'ambiance enfumee des cafes ! 



ETTOUJOURS 
10 %DE REMISE 
POUR LES ABONNES ! 



GALAXIAN 

D'innombrables hordes 
d'extra-terrestres en rang 
d'oignons se pressent sur 
tous les ecrans de lous les 
otdinaleurs du monde pour 
se faire descendre par des 
tirs de laser implacables, ils 
sort tous des enfants de 
SPACE INVADERS et de 
GALAXIAN, mais qui a ja- 
mais fait mieux que les es- 
cadrons de GALAXIAN qui 
attaquent de tous cotes et 
obeissent a un chef ? A bas 
le rectiligne ! 




DIG-DUG 

DIG-DUG. le petit mineur, n'a que son scaphan- 
dre et sa pompe a velo pour aneantir Pooka - la 
taupe hargneuse - en la gonflant d'airjusqu'a ce 
quelle eclate. Mais Fygar le dragon et ses freres 
cracheurs de teu sont aussi la pour I'empecher de 
recuperer les fruits qui parsement le sous-sol 
Peut-etre arrivera-t-il a les ecraser avec des ro- 



PORT GRATUIT ! 



CENTIPEDE 

La commande par boule 
qui actionne ce jeu dans les 
cafes est difficile a manipu- 
ler. Avec un joystick ou me- 
me avec le clavier le jeu est 
encore plus attrayant : Les 
mille-pattes zigzaguent a 
travers I'ecran. la puce dia- 
bolique seme des champi- 
gnons partout face a voire 
pulverisateur de DDT, sans 
oublier les araignees sau- 
teuses et les scorpions ve- 
nimeux ! 




iiisS&^a^fiiewfc^ 






ROBOTRON 

Plus on avance dans les ta- 
bleaux du jeu etplusily a de 
monde pour vous altaquei 
el, comme il faut se depla- 
cei et choisir la direction de 
tir de votre anti-robot laser 
gun avec le meme joystick, 
il vous faudra un grand en- 
trainement pourarriveraux 
25.000 points qui vous don 
nerons droit a une vie 
plementaire. 




DEFENDER 

Difficile de prevoir d'ou va 
venir le coup, du haul, du 
bas, de la droite, de la gau- 
che ? Lequel des 14 enne- 
mis presents va attaquer le 
premier ? Oois-je aller en 
avant ou en arriere, accele- 
rer ou freiner. voler en rase- 
mottes ou zigzaguer ? Utili- 
ser mes lasers ou une de 
mes trois smart bombea ? 
Aussi durdegagner que sur 
I'original meme avec le 



MOON PATROL 

Qui neconnaitlapetite jeep 
bondissanteau-dessusdes 
crateres, pulverisant les ro- 
chers. abattant les meteori- 
tes, evitant mines, tanks, 
ovnis et plantes carnivo- 
res ? Deux niveau* : novice 
et expert de 26 elapes cha- 
cun. Tous les 10.000. 30.000 
el 50 000. vous gagnez un 
vehicule de patrouille sup- 
plementaire. Objectif : pro- 
tection planete Lune ! 




DONKEY KONG 

Mario, le charpentier, es- 
•uiiedesesperrimentd'arra- 
-.her sa fiancee des patles 
de Donkey Kong, le gonlle 
geant qui la retient captive 
tout en haul d'un amas de 
l »ju Irenes bnsees. II lui faul 
affronter des cascades de 
tonneaux. demonterdes ri- 
vets, emprunter des ascen- 
seurs fous ou encore errer 
dans un dedale de tapis 
roulants charhant des ba 
quets de sable. Dur. dur ! 




POLE POSITION 

D'abord les essais pour sa 
voir ou sera place votre bo 
ude sur la grille de depart 
puis c'est la course propre 
ment dite. virages serres 
cnssements de pneus et 
accidents avec voilures en 
flamme ! Graphisme, cou 
leurs el trois dimensions, la 
star des jeux decafes ITrois 
mveaux de difficulte. deux 
vitesses et des compteurs 
partout ! 




TOUS LES JEUX FONCTIONNENT AVEC LE CLAVIER OU 
AVEC LES MANETTES DE JEU. 



JOUST 

A califourchon sur une au- 
truche, une lance a la main, 
vous combattez les buzar- 
diers sauteurs, chasseurs 
et seigneurs. Mais ne 
croyez surtout pas que ga- 
gner une batailie suffit, les 
vairtcus pondent des ceufs 
de frustration qui sont en- 
core plus dangereux si vous 
avez le malheur de les lais- 
ser eclore. La joute est ou- 
verte . 



TABLEAU RECAPITULATE DES PRIX (PORT COMPRIS) 
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VIC 20 (MODULE! 


315 


355 


335 


355 


335 


355 




355 


315 


335 


335 


335 




COMMODORE 

64 (MODULI, 


345 


395 


365 


395 


365 


395 


345 


395 


345 




365 


365 




T.I. 99/4A (MODULE, 


330 




345 


375 




375 




345 




345 




345 




APPLE II (DISK, 


380 


430 


400 


430 


400 


435 


380 


435 


380 


400 


405 


405 


405 




MS. PAC-MAN 

La petite amiede PAC-MAN 
a beau avoirune faveur rose 
danslescheveuxel 
tous ses charmes, elle n'en 
a pas moins les pires ennuis 
avec les qua t re Ian to mes 
qui la poursurvent. Et il lui 
faut. elle aussi. errer dans 
ur labynnthe en croquant 
des pastilles d'energie 
bieues Ce nest pas une 
glouton 
femelle ' 




JUNGLE HUNT 

Sauter d'unelianea 
depouiller des crocodiles 
se faufilersous des blocs 

lements et affronter de sa 
vages cannlbales alors qui 
vous n'etiez qu'un amou- 
reux transi et oisif ? C'est 
peut-etre la vue de votre 
petiteamieen train decom- 
mencer a cuire dans cettes 
marmite qui vous a change 

STARGATE 

Plus rapide, plus difficile 
que DEFENDER, presque 
mjouabie I Les ennemis 
sont innombrables, plus ra- 
pides et plus sournois les 
uns que les autres et 1'hy- 
per-espace n'arrange pas 
les choses. elle ne fait que 
retarder votre disintegra- 
tion ! Esperons que vous ar- 
hverez tout de meme a sau- 
ver quelques-uns des hu- 
manoides qui complent sur 
vous pour rentrer chez eux ' 





PAC-MAN 

Leseul, I'unique, I'incompa- 
rable : toujours copie, ja- 
mais egale 1 19 tableaux dlf- 
ferents. de la cerise a la cle 
en passant par lescitronset 
les cloches. Blinky le rapi- 
de, Pinky le soumois. Inky le 
malin et Clyde qui vous 
coupe le passage, vous at- 
lendent. Si vous atteignez 
10.000 points vous gagnez 
un tour gratuil et le record 
du monde est a battre I 



r 
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■ mm mmm mm mm mm mm m 

BON DE COMMANDE A DECOUPER OU RECOPIER : 
SHIFT EDITIONS, 27. rue du Gal Foy 7500B PARIS 
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LOGICIELS 


Ordinateurs 


Prix 


ate 


Montant 


i 












i 


TOTAL 

REDUCTION TO* SPECIAL ABONNES A DEOUIRE 








MONTANT a payer 




date de la commande : 


eoarut.01 E- 















CHRONOPOLIS 



Vous entrez dans une maison etrange. Chaque chan- 
gemenl de piece vous transporte dans le temps. Recu- 
perez des objets de la plus forte valeur possible. Pour 
valider vos points vous devez sortir de la maison du- 
rant I'annee comprise entre votre date de naissance et 
I'annee d'utilisation du jeu. 

J.M. GARDERES 

Vous devez efiecluer 3 voyages dans cette maison: 

lere essai: Recuperet des objets verls (lots de la validation, les 

valeufs des objets sont multiplies par 100). 

2eme essai: Recuperer des objets verts (lors de la validation, les 

valeuts des objets sont muttipliees par 200). 

3eme essai: Recuperer des objels rouges (lors de la validation, les 

valours des objets sont multiplies par 1000). 

Votre espace temporel est limite par les annees + 5000 et - 50O0. 

Prenez garde aux trappes temporelles qui vous propulsenl dans le 

temps aussi bien dans le passe que dans te futur. La maison Giant 

normale. vous pouvez sortir par le garage, par I'entree ou par le 

balcon (en sautant si vous etes souple!...) 




7 REN N 

10 DflTfl?0a0.6. 0.3259.0,0. 3199.70.25.2909.0.0, 2799. 1:0 

12 DHTR2520. 0.0.2499.80. 10.2370.0.9.2299. 1.0,0.0,0 

14 DATR0.4.0, 1915, 9. 0.1890. 10.10.1979.3.0,1860,0,0 

16 DATR1S39. 10. 5- 1890, 00, 1780,10,5, 1778.5,10,1764,1.0 

18 D«TH1700,0,8. 1679.10.10 16600,0. 1640, 1,0, 1620, 3,0 

28 DHTfll600,20,20.1589. 1.9 1569. 10. 29. 1540. 0,5. 1529.5.5 

22 DRTfll 510. 90. 20, 1499. 12, 10. 1495. 25. 30. 1450. 3, e. 1429,15.25 

24 DRTfll 380. 1,3.1359. 15, 19. 1350, 0.0. 1340. 2, 0.1320, 2.0 

26 DRTR1309-3.1, 1270. 80. 5 , 1249,10,39,1200,0,0,1199,2,0 

28 DflTR1970539. 1059.25 20. 1050 ■ 9,999, 15,20. 819,9,8 

39 DHTR799. 0.15. 453. 9, 0,433 1 0.359.0.0,299,2.9 

32 DHTR68. 0.0. 36, 79, 19,-44,9,8,-102,49,5,-159.0,9 

34 DRTR-249. 2, 0,-28 1.25 -10, -321, 20, 25, -361. 70, 39, -1009, 0,0 

36 DRTfi-1 235, 3, 0,-1 281. 90- 50, -5091. 0,9. -19000. 6.0 

50 DWK<68,2; 

60 F0RI-9T06S 

79 F0R>8T02 

80 READK(l.J) 
99 HE XT J NEXT I 

95 POKE53280,8 P9KE53281.7 PRINTCHRX31) 

".00 PRINTS" PRIHT"li»/OUS ENTRE2 DRHS UNE MR1S0N ETRRHGE" 

19 PRINT"POUR RECUPERER - 

20 PRINTTRB<5>."1 ER ESSRI DES OBJETS VERTS" 
30 PRINTTRB<5>:"2 EME ESSRI DES OBJETS VESTS" 
40 PRINTTRB<5>,"3 EME ESSRI EES OBJETS ROUOES" 
50 PRIHT'TE D1FFERENTES VflLEURS. ■ 

60 PRINT"W»CHfiQUE CHBNGEMENT DE PIECE VOUS FRIT" 
70 PRINT"CHRNCER D'EPOOUE." 

80 PRINT"IMFOUR COHVERTIR LES OBJETS TROUVES EH" 
90 PRINT"POIHTS. VOUS DEVEZ SORTIR EHTRE VOTRE" 

209 PRItJT"RNNEE DE HRISSRNCE ET L'ANNEE DE JEU." 

210 PRINT-IMrHfiOUE DEPRSSEHENT EE 20 COIJPS PAR" 
220 PRINT"ESSP.l VOUS FRIT PERDRE DES POIHTS. " 
230 PRINT"(»riEFIEZ-VOUS DES TP.RPPES TEMPORELLES" 
Z«B PRINT"OUI VOUS PROPULSENT DBMS LE TEMPS, CRR" 
230 PRIHT"VOTRE ESPFICE TEMPOREL EST LIMITE PUR LES"; 
260 PRIHT"RNS 5000 POUR LE FUTUR" 

278 PRINT" -3009 POUR LE PR.SSE" 

280 PRINT PRINT PRINT "III HTR0DU1SE7 L'AHHEE EN COURS. *; 

290 INPUTB 



.•ENTREE' 1 



300 KC9.9>- 

310 fl»-"L ~ 

320 M-0 

330 H-B 

340 PRIHT"IIINTR0DUISE2 P.NHEE DE HHISSflHCE". 

359 INPUT2 



J,0>*Z 
373 P0KE34296.1 1 
389 S-9:f>0 P-9 
419 V-0 Vl-0 V2' 



368 Z 

378 K 



'PINT 



519 PRINT":]" 
329 PR I HI 
539 G0SUB5999 
345 IFP-2THEN570 
530 PRINT"M"P« 
560 PRINT PRI 
565 GOTO600 
370 PRINT"*" 
560 PRINT PRINT 



610 tl-M+1 

620 1FH<-20THEN659 

623 GOSUB2500 

630 N=l 

640 C-C-2009 

(T4-. 01.1^.^5990 

660 I FRf-"L" ENTREE "TKENB20 
670 IFR»="LE GRRRGE-THENeSe 



"WIOWOS OBJETS NWERTSK1 VRLEHT : " 



VOUS ENTREi' URNS ' 



680 IFfl*="LE rfcLLIEP"TMEH889 
699 IFfi*="Lfl CUISIHE"THEH910 

709 IFRS="LB SFILLE R MRHGEfi " rHHi'-i "■■' 

710 IFfl*="LE SRLOH"THEN1900 
720 IFR»="LB CHRMBPE"THEN1929 

739 IFflf""LR SRLLE DE WINS" THEN 18*8 

740 IFH*="Lfi SflLLE DE JEU'THENinne 
750 IFfl*="LE BUREAU" THEN11 2? 

769 IFRJi"LE HflLL"THENl 160 

770 IF(W«"LE VESTIH1PE"THEN1229 
789 IFflf"-LES MC"THEH1250 

799 PRINT"LE BUPERU TRPEZ -T' 

399 PRINT-LE HflLL TRPEZ -39" 

895 IFBS=lRH[ifl':=Kf9.0>THENPPINT"l. ENTREE TRPEZ 9" 

319 G0TO1269 

829 PRINT"LE GRRRGE TRPEZ 2" 

839 PRINVLE HULL TRPEZ 1" 

840 GOTO 1269 

850 PRINT-LE CELL1ER TRPEZ -23" 

868 PPINT-L'ENTREE TRPEZ 9" 

878 U0T0I268 

880 PR1NT-LR CUISINE TRPEZ -4" 

890 PR1NT"LE GBRRGE TRPEZ 19" 

gap mini see 

918 PRINT-LH SfiLLE fl MftNGER TRPEZ -13" 

920 PR1NT"LE CELLIER TRPEZ -15" 

938 PRINT-LE HRLL TRPEZ 18" 

948 GOTO 1269 

958 PRIHT-LR SRLLE DE JEU TRPEZ -2" 

960 PRIHT-LR CUISINE TRPEZ 58" 

978 PRINT-LR CHRMBRE THPEZ 9" 

989 PRINTLE SRLOH TRPEZ -45" 

998 GOTO 1260 

-.008 PRIHT"LR SRLLE fl MRHGER TRPEZ 11" 

1818 GOT01268 

1829 PRIHT-LR SRLLE R MRHGER TRPEZ 21" 

1030 PRIHT-LR SRLLE DE BRIMS TRPEZ 49" 

1040 PRINT-LR SRLLE DC JEU TRPEZ -3" 

1939 GOTO 1260 

1860 PRINT-LR CHRMBRE TRPEZ -16" 

1078 G0T01268 

1888 PRINT-LR SRLLE R MANGER TRPEZ '2" 

1899 PRINT-LR CHRMBRE TRPEZ -.'9" 

1199 PRINT-LE BUREAU TAPEZ 3" 

i : iP DOToizea 

1120 PRIHT"LR SRLLE DE JEU TRPEZ -30" 
1130 PRIHT"LE BRLCOH TAPEZ 6" 
1140 PRIHT-LE HALL TRPEZ 20" 
1150 00T01269 
1169 PRIHT-LE VESTIRIRE TRPEZ 5" 

1179 PRIHT-Lfl CUISIHE TRPEZ 13" 

1180 PR IHT"L' ENTREE TAPEZ 0" 
1190 PRINT"LE BUREAU TRPEZ -1" 
1288 PRINT"LE BflLCON TRPEZ 4" 
1210 GOTO1260 

1228 PRINT"LE HRLL TRPEZ -3" 

1230 PRINT"LES 14C TRPEZ -68" 

1240 G0T01269 

1259 PR1HT-LE VESTIRIRE TRPEZ -35" 

1269 PRIHT PRIHT PRIHTTAB<18>; : IHPUTD 

1265 IFD-8RHDBS-1THEHBS=9 GOTO1940 

1278 IFD"9THEHR*«"L'ENTREE" G0T01428 

1288 IFD"lORD«18ORD-20''P['=^''iP[i--''"HENR$-"LE HRLL" ■ G0Tril4; 

1299 IFD"20RD"19THENflf."LE ORRRGE" GOT01429 

1390 IFD«30RD— 10RD=-31THENR*="LE BUREAU" : G0T01429 

1310 IFIW40RD-6THENfi*="LE BRLCON" GOTG1420 

1329 IFD-50RD— 35TNENfl*-"LE VESTIRIRE" GOTO1420 

1339 IFD-9CWD— 160PD"-79THEHAJ-"LA CMAMBPE" GOTO1420 

1349 IFn«110flr«12ClRtl-210RE--13THEHR*«"LA SALLE B MBNGE"" 
GOTO 1420 

1350 IFD«130RD=580RD=-4THENA*="LR CUISINE" -G0T01429 
1360 IFD-40THENA*--LA SRLLE DE BRINS" GOTO1420 

1370 IFD— 20RD— 50RD— 50THENA*-"Lfl SflLLE DE JEU" GOT01429 
1389 IFD— 150RD— 23THEHB*-"LE CELLIER" G0T01429 
1398 IFD— 45THEHflf"L£ SALON" G0T01429 



) FORJ-0TO60 

) IFN-1THEH1490 

} IFA<"K(I.0''THEN1499 



) HEXTJ 
i IFKTIl 
3 IFKd 



:4THEN1920 

;FK<I,1>*3TH HI '■' ■ 

IFK'I 1 ■-2THEIUB50 
IFKd.p-lTMEHl^H 



KI,i) 

) R«KCI-Z) 

S GO5UB6000 

} IFP-:.R3THEN1680 

} IFR<-R2THEN1678 

) IFR<=R1THEH1640 

i P3=p; p2=pipi=p r.mn<--.-:--' 

) R3-R2 R2=P G0TO1689 

1 R3"P 

J IFV.«W3THEH510 

} IFV-:.>,'2THEH1788 

3 IFV:=V1THEH1750 

) V3=V2 V2=V1 V1=V GOTO510 

) V3-V2 V2-V nnT0518 

» V?-V G0T0518 

) L-L+l 

3 IFLC3THEH319 

5 GOSUB2500 

3 RaA-1000 GOSUB5990 V3=0 90T05I8 

3 L-L+l 

3 IFLOTHEH310 

5 OOSUB2309 

i fl=R-2009 GOSUP5090 P^=" G0T0S19 

3 IFD>0THENR=R*3009 r,n-i ip: "iui r.n -uf '.itfm .-.r.inwiB 

? fl=fl-3009 GOJi.'Fr^O" nr-r-: i ir-.niw GnT03i^ 

3 IFR*>"LE GRRRGE "0PR»'"LE HHLL-OPR»="l E PRLCONTHENB^l 

3 G0T0319 

3 PRINT PRIHT-WOULEZ-v'OUS VRLIDEP VOS POINTS'" 

3 PRINT"'0/N)" 

I A*-"L'EHTREE" 

5 OETr* IFZ»=""THEN194-. 

7 IFZ*="H"THEH519 

?- IFZf<>"0"TNEN1945 

a p*p*i 

3 IFP«1THEH2010 

* IFP=2THEH2039 

3 C-C*1009*'P1.P2*R3> 

S-INT(C-'M) 

:'■■■■>■? .UTG2090 

2910 C"C*109»'W1+V2*V3' 

T020 G0T02949 

:; ij 7 n r = r t-?00» ■' y l +V2*V3> 

2040 0OSUB3999 GOSUB5000:FOPT=lTO10aa NEKT 

.^945 PPiiiT-^-;»»i»rT'n--. pr-'e: four le ■ f*i E"? ?--*;■■ 

2947 FORTT«1TO2000:NEXT 

2059 GOTO410 

2060 G0SUB5599 POKE53280 ■ 2 P0KE53281.5 

2065 PRINT"^/0US ETES PASSE AM pELA DES LIMITES DE" 

2070 PPIHT"L- ESPACE TEMPOREL. VOUS AVEZ PERDU" 

Z0S0 r.njo2\60 

2099 P0KE53289,5 :P0fE53291.e 

2095 PPINT"^0"PPINTTRB'15', "PESLLTATS" 

2180 PRINTTABaS);" " 

2110 PRINT-PRINT : PRINT" VOUS AVEZ GRONE ".Ci"POINTS- 
2115 PRINTTABM3K"EN ■'■n. H COUPS" 
2120 PRINT PRINTPPII1T PRINTTAB'lig-'," 1 
2130 PPINTTABaOi; "*" : TRE'29) ; "** 

mi mmmir. ■;«- tw?^:?*!""" 

2149 PRINTTRBM0> ;"*******•«*«******»•■ 

2150 PRINT PRINT PRINTTAF' 17': "BRRVO" 
216B PRINT ppiNT-'.'uns.HZ-Wiit; rejoUEP' " 
2178 GETZ* IFZi=""THEN2170 
S175 IFZ*-"0"1HEt(pni F-"-::-o? P0KE33281 . 

2189 IFZtO"N"THEN2l78 

2190 END 

2500 P0KE34277.16 F0KE54278 ■ 249 

2310 PQKE5437S..33 

2320 P0KE542?3.SP0KE342^.147 

2339 FORTM=1TO2000HEXT 

2540 P0KE3427i-:.n.pn>.E*i4^-7,n POKE*>427R . B 

2550 RETURN 

2700 P0KE34277. 16 P0KE3427S ■ 249 

2710 P0KE54276,i7 

2720 P0KE34273.6S PGVE34272 , 149 

::--.,-. rnpTM-lT02898-NEXT 

2740 PnKE54276-0:POl-F"^'. " ' .' pru-E'.J.'Z- ? 

2750 RETURN 

3800 F0KE54277. 199 P0KE3427S 17 

-:;.■_;. m.-ESi.TT::. '■: mt: E :i?_-::. :": 

>?7>? -'TTn«lTO2000:NEXT 

3930 POKE54276.0 P0VE545-7 B 

3848 RETURN 

5000 PPIHT"*" F0PLL-1T021 PRINT NEXT 

5819 PPINTTRB< 131: "POINTS » . "S"C: "II ■" 

■.*!* PET1.IPN 

3309 FORV-15TO0STEP-0.5 

5510 P0KE54296.V 

"■:;» P'3h'E54277. 16 P0KE5427R.248 P0*E5427t l.?? 

5530 P0KE54273 • 9 : P0KE34272 ■ 253 

5540 NEXT 

-".?. =.^ie-:427E pnKE c .4Z7~ n f -nk E '■■':■■- ft ■' <=r>;-?'.*2-?t ]*. 

5-^60 PETUPH 

6009 IFP>3THEN69>0 

6019 IFV>eTHENno=.LiB30on 

-:n.-i> --nro6949 

6039 IFP>8THEnr.iT=:iiF?0ft.-. 

6040 RETURN 



RALLYE 



Vous qui venez de passer votre permis de conduire, 
entrainez-vous a la vitesse et au pilotage, 

Patrick DELINGER 

Mode d'emploi: 

Pour vous deplacer. utilisez les touches Q et P. N'oubliez pas de 
maintenir votre "volant" dans la direction choisle! Vous avez le droit 
de heurter quelques bordures avant le crash mais pas beaucoup. La 
structuration du programme en accelere grandement I'execution. 
Linstruction "WAITO:PRINT"XX-:CALL 8. 1023 (ou CALL 305):A$ = 
INKEYS " permet linterruption jusqu'a ce qu'une louche soit enfon- 
cee. Ce precede evite lutihsation des boucles. Ne pas oublier de 
faire un 'CALL & 11E5" pour remettre laflichage sur "OFF". 
ATTENTION! Avant de rentrer le programme, faites: POKE & 
B800,220.32. POKE & B802.226.76. puis en tapant le programme, 
remplacez les V des lignes 60,70,80 par SHIFT A et les M par 
SHIFT B. 

> / 




*»Jk 


120! 2- SNJJ t 


298: IF A<1 GOTO 'A* 


498!!? Z<-I LET fl=A-l 


• nkl 


IStHF 2<-l LET A-A-; 


389! IF A>3 THEN 'A* 


580: IF Z>=3 .ET fl=ft+l 


* 11 3 1 


146JIF Z>=3 LET R*fl+: 


318:nEXT I 


5l9!«AIT 0: PRINT ' 


m 1^*'' 


:58!kAI7 0: PRIM * 


320:UAIT :Sai PRINT 'TAB 


SBKAJi- 'Ml 


/ 


•;a*<fl>i* 'i i: 


LEAU -3-'!Vs3 


CA,. S11E0 




(%.L SUES 


34a:F0R 1=0 70 3j READ B 


529:IF iriKEY* ='3- ^£T A 




:6flii c Inkey* =*q* let a 


(CI)! NEXT I 


=A-1 




=a-: 


350JFOR 1=1 TO 280 


536! IF INKEYJ =-P" LET fl 




178: IF ihk-ys *•?• let a 


360:WAIT 0: PRINT ' 




■;'•:-«: I58t PRIST •»»* 


•ft+l 


*:BI(A>i" 'III 


540: IF fl<l GOTO 'ft* 


//RALLYE//***- 


133:I C fi<: GOTO 'ft* 


CALL £11 £8 


550: IF ft>2 iOTO •*" 


40:REn RAllY 


190: IF fl>4 GOTO *fl' 


370! Z- RND 4 


568! NEXT ; 


S8:CLEBR : DIM S»(6)»6: 


289:sEXT : 


33etIF 2X-1 LET fl-A-l 


SBfltJUn 186! PRINT 'BRA 


»'(. Rh2 2J+11 


235:F0R 1=6 Tfi 4: R£A2 B 


390: IF Z>=3 LET A=A+i 


VC VOLS ETES'! PRINT 


RESTORE 


t(i): SEXT ; 


400SMAIT 0: PRINT ■ 


■OH C^ASPIQN !l»l 


681DBTR 'H I'i'IV 


207i»«T 158: PR:*T 'TflB 


•;S*(A)!' *JI: 


PRINT -V0U5 AVEZ FAI 


!•.•; v [*■«] v r 


LEAL -2-"iV=2 


CALL £U£0 


T 730 Kill " 


-*I VI-. M IT 


21S:F0ft >'. to :56 


418! IF INKEYf =*Q' LET A 


585:*RINT -SCORE :'iI*CV 


78!DflTB 'H I'i'IV [' 


220:UHl T 0: PRIr,T ■ 


=a-: 


*168>i"P0;NTS* 


.'I V i-.*i VI', -I 


•!J*(A)i- -;;! 


420: IF IN<EY» ='P' lET A 


590: -A'! «AIT 150: PRINT 


fl* 


ch-l tiisa 


= A+1 


" «=SCRACK...Mt 


39:DRTfi 'fl I', "IV I'.' 


2S0:Z= RnB 4 


430UF AU GOTO 'A' 


*•**•*! PRINT -ON PE 




240:'F Zt=l lET A=A-1 


448: IF A>2 GOTO 'A' 


LT MIEUX FAIRE It* 


90:=OR 1=0 TO 5: READ B 


258: IF Z>=3 lET a=»+<. 


450! NEXT I 


5951PRINT -SCORE s "i I+CV 


«(I)J NEXT : 


268I«M1T 0: =PInT ■ 


455UAI7 150! PRINT 'TAB 


•100>!'POINTS" 


95:-RIT 15SJ PRIST -TAB 


■iBKAji' -i;: 


LEAU -4-':V«4 


D00!iiAIT 0: 'RInT 'UNE A 


l£»U -1-»1V-1 


Crtl^ 6UE8 


46tJ:FQR l = i TO ?B0 


UTBE ?*i CflU. 385! 


eetFCR :=i to lee 


278: IF INKEYS ="0" L £T A 


470:-AI7 0! PRIST * 


IF INKEVS ■•fl" THEN 


•, e t «A i t as print v 


=A-I 


•iB*(A>i- »1U 


50 


■JBKAir •!!! 


288: IF IHHEtt =*P* k £T A 


CAl^ ill£8 


610:wa;T 180: PRInT 'AU 


Cfu. tiiEe 


=a»; 


480:Z= R^O 4 


REVOIR >': END ■ 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 






Un concours deplu: 
Rien de bien original 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Etavecdes prix dignesdes pro- 
grammes que vous allez nous 
envoyerl 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
Pas de Jury, pas de decision ar- 
bitrage, HEBDOG1CIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXetFRANCAIS.Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 



Pour participer. il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 

sation de ce programme. 
Bonne chance! 



Hi.!glf!rru;n1 

ART 1 HEBDOGICIEL organise 
de facon mensuelle et tnmes- 
tnelle'un concours dole de prix 
recompensanl le meilleur logi- 
ciel du mois e! du trimestre 
ART 2 Ce concours est ouverl a 
lout auleur de logiciel quelque 
soit le materiel sur leque! il est 
realise L'envoi d'un logiciel en 
K 7 ou disquette accompiignc 
d'un bon de participation de 
coupe dans HEBDOGICIEL ou 
envoye grat Lite merit sur de- 



didature 

ART 3 La redaction d'HEBDO 

GICIEL se reserve le droit de 

selectionner sur la base de la 

qualite el de I'origmalile les logi- 

ciels qui sont pubhes dans le 

journal 

ART 4 Ce son! les lecteurs qui. 

par leur vole, determmenl les 

meilleurs logiciels mensuel et 

ART 5 Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART 6 Le prix alloue pour le 
concours tnmeslnel sera remis 
auplus tard un mois apres la eld 
lure du concours trimeslriel 
ART 7 Le present reglement a 
ete depose chez MaTtre Jauna 
tre. 1 . rue des Halles 75001 Paris 
ART 8 HEBDOGICIEL se reser- 



ve le droit d interrompre a tout 
moment le present concours en 
en avisanl les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine I'acceplation par 
les concurrents du present re- 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur, 

Ainsi, pas de tavoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Prenom ; 

Age Profession : 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre I'auteur de ce programme qui n'esl ni une imitation ni une 
copie d'un programme existant Ce programme reste ma propriete et 
I'autorise HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 



Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un bescriptil detaille du materiel utilise, 
d'une n otice d 'utilisation du programme Les supports des program- 
mes publies s ont c onserve s, n'oubliez done pas d en (aire une copie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en lindiquant sur voire 
Bon de Participation 

• N'oubliez pas et ceci est tres 
important, d'mscrire sur vos sup- 
ports voire nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de voire programme, sous forme 
de REM, voire nom, le nom du pro 
grammeet le materiel auquelil est 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'irnprimante 

• Dupliquez plusieurs fois sur la 
cassette el a des niveau* d'enre- 
gistrement differents voire pro- 
gramme Nous aurons plus de 
chance d'arnverale charger si les 
magnetophones ne sont pas tout 
a fait compatibles 

• En ce qui concerne les bons de 
participation, meitez voire adres- 
se complete et voire numero de 
telephone (si vous en avez un) 

• Pour tout envoi tel que "petites 
annonces", "abcnnemenl" et 
"programmes'' specifiez sur vos 
enveloppes I'objet de voire cour- 



• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'aulres ordmaleurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitei de nous envoye* 
les jeux suivants : BIORYTHMES. 
MASTERMIND, PENDU. TOUR DE 
HANOI, CALENDRIER, BATAILI.E 
NAVALE, POKER. JACKPOT 
BOWLING. BLACK JACK, LABY- 
RINTHE, MEMORY SIMON 421 
OTHELLO, SOLITAIRE, LOTO 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOfSIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SVBEX). 






SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHfeQUE. 


Les editions du CAGIRE offrenl 
au meilleur logiciel du mois sur 
HP41 leurlivre'autourdelabou- 
cle" de Janick TAILLANDIER. 





RECOMMANDATIONS 

PARTICULIERES 

AUX POSSESSEURS DE 

TRS80 

Indiquer avec precision le mo- 
dele d'ordinateur auquel le pro- 
gramme est destine. Si le pro- 
gramme est en registry sur 
cassettes utifisez obligatoire- 
menl la vitesse de 500 bands, 
meme sur un modele III, 
Dans tous les cas ou le pro- 
gramme est enregistre sur cas- 
sette il faul avoir utilise la Vi- 
tesse de 500 bands et non. en 
particulier, la vitesse de 1500 
bands du modele III. 



^fcr suite de la page 3 

1Z250 RETURN 

1230a Ren 
13000 REM 
13019 REM B0UCLE D'OREILLE GftUCH 

E 

13029 REM 

13030 CURSET17+X.128.1:F0RI=1T04;CI 
RCLEI.l NEXT 

13040 RETURH 

13160 REM 

13110 REM BOUCLE O'OREILLE DROIT 

E 

13120 REM 

131 M UIRSETII3+X. 128.1 iFORI'lTM'C 
IRCLEM'NEXT 
13140 RETURH 
13300 REM 

13310 REM M0USTRCHE HuRMRLE 

13320 REM 

i ■■■:■■:-;;! ■■ ■-•:=, iul.-- tep; ■: .-^b."'-'0+i+--'- 

143. 1DRRU0,7.1 NEXT 
13350 RETURN 
13400 REM 

13410 REM GRANDE MOUvTRrHE 

13428 REM 
1.14311 rilP2ET25-:'. 15J-1 ORflUl ,5, I ' DR 

RU4.2.1 

13440 DPRU29.-10.1 DRRWI5. 1 . 1 ; DRRU1 
5.-1.1 

13450 [.pause, i9,i drru4,-;.i dprui 

-5.1DPRU-5.3.1 PRRU-5.-3.1 DRRU-15. 
-10.1 

13460 DRRW-30.0.1 DRRW-15. 10. 1 ^DRRLJ 
-5,3,lDRRU-5,-3,I 

13470 RETURN 

13506 REM 

13510 REM B0UT0NS 

13320 REM 

13536 CURSET78+X, 130. 1= CIRCLE:- 1 ■ OJ 
RSET90+X, 125, 1 CIRCLE3. 1 CUR3ET190+X 
.125.1 

13540 CIRCLE2. 1 CURSET1SJ«-X, 128.1 ■ C 
IRCLE2. 1:CURSET30+X.162, 1 u:iPllE2. 1 

13550 C',-;.f ' '■■'■■ I :iP'-,LE.-:. i ■I.J.i 
RSET50+X, 125, 1 

13560 RETURN 

13600 REM 

13610 REM CICATRICE GRUCHE 

13620 REM 

13630 CURS£T35*X, 125.1 DRRU3, 12.1 D 
RfiW2,-2.1 0RftW5-15.1 

13650 RETURN 

13700 REM 

13710 REM CICRTRICE DROITS 

13720 REM 

13730 CURSET85*X. 125. 1 PRHU3, 12. I'D 
RRW2,-2,1'DRHN5,15,1 

13750 RETURN 

13830 OJRSET29*X,10.1 F1LL60.B, 16^C 
URSET77*X.19-1 F1LL60.3.23 

13900 REM 

13910 REM fliJTEUR 

13920 REM 

13930 TEXTCLS^PRPER£ i INK4 

13940 PRINTPRINT. PRINT PRINT 

13956 PRINT" Jerome DENOT Presents. 

"13960 REM MUSI0UE 

13362 PLRY9. 0.0.0 

13965 RERDO,N,O;IFO=-1THEN13980 

13970 NU5IC1,0.N,8 MUSIC2.O+1,N,0;M 
USIC3,0,N, 12 PLRY7, 0.1.1500 

13975 URIT0-'1.5 ; GOT013965 

13980 EHOOT^URlTSa 't.HOQT ■ Uni T 1=, ■ f.'f 
LQDE ■ WR 1T49 EXPLODE i Hfl I T IS i SHOOT 

14000 REM 

14010 REM PPESENTRTION 

14020 REM 



14100 CURSET32.128.ZDRRW23.0.2rJRn 
H0.18.Z'DRRW-25.B.Z 

14110 CURSET32,12B,Z DRRU0.36.Z ! CUR 
SET43 , 1 38 , Z ^PRfiU 1 2 , 20, Z 

14120 CURSET70.120.Z DRRU25.0Z 0*H 
Hti, 36 ■ Z ORRW-25, , Z : DRRW0, -36 . Z 

14130 CURSET107, 120,2 DRW25 Z DS 
RUO . 36 , Z i DRRN-25 .0.2' OSAWB . -36, Z 

141':': CURiL114S. i;;0.z :-RHW25,0.Z- DP 
RU0 , 36 , Z ■ DRRW-25, . Z = DRRU0. -36 . Z 

14140 CURSET10?,138.ZDRRW25.0.2 

14150 CURSET182.120,2'DRRU25.OZ CU 
R5EIl? L i,l.?0.Z DPRU0.36.Z 

14200 CURSET3B,'J0.r L'RHWl^.D.Z-DRRU 
0.30.2DRRIJ-15.0.Z CUP5ET30.30,Z 

14210 DRRWO.60,1 

14220 CURSET^E. 30.L' i-'-^UlZ -fl. Z DPn'.l 
0,60,ZiDRRU-15,B.ZDRflU0.-60,Z 

!■■,>.;(.' l.ijr-:.et;-.:. i^. :■: :>--..:■■.. n .: :-n-i, 

ti.W.i'f'RftiJ-15-rj.: i:UF?ET7i..:ii3,Z I'RR 

U0.60.Z 
14240 CURSETS2.60.^ DRRU6.30-Z 
14250 CURSET1O0.30.Z DRRHlt ■ ■ Z CUR 

3ET108.3O-Z DRRHtv.eo.Z CURSET125.30, 

14260 DRRU15.0.7DRmW0,30.Z'DRRU-15 
.0.Z CUPSET125.;C'.Z DRRW0.60.Z 
14270 CURSET135.60.Z DRRU5.30.Z 

Mi:-'! ' UP-LET ■■:■:■. I'?-: - [■PRl-::f 0-Z DPPI 
N0-:-!O.Z [■■Pfli-l — ) "r- - =■- - :J '.UP:ETi52.M.Z 

U:^im [.PiiUn . : -.m..- LUPiETl--.r.60.ZDRR 
U0.30.Z 

14.iiin c.UF-iEH;-!. i'.'.Z [■FHUl-;.y-Z UUP 
'■ET1?3. !-'■■ ■ Z ■ DPmUU . 60 ■ Z CUR5ET175.90. 

^14310 DRBHIS.a.Z CURSET197.30.Z DRfl 
M16.0-L' C.i lf,"=.E I .I-Mf. ■ J0.Z r s-rtlJO . o0 . Z 

15900 REM 

15033 CUR:;ETE::000 FILMS-?. 1.16 

15040 >16 

15050 PING 

15110 F0RI=28T0191STEP2 

\^\Zt! J = J+1 lFJ=i3THENJ=17 

151.^1 C'Jft'iETli'.I.e FILL1.1.J 

15135 -A'UHDl.1.18 

15140 NEXT 

15159 FrjRl = i92T017:-STEPZ 

■5iT.r.i ':.i'f-:.f-T!_ i.i ' :_■. : 

151^5 t.i'iUND1,1,10 

15170 NEXT 

[■■iy.i SHU0T PING 

151?0 CUF.iETZSO . y F1LL199, 1 . 16 

l'v:i.i|-i F0PI=9T07 

15300 FORJB0TO7 

1531U fHPERl>INKJ 

15315 CURSET230.0.0 F1LM99, 1,16*1 

15320 POPi,= io^o':^:;^i----5Cw 

15? -0 -.O'JHDl .-111 H-K.10 
15340 NEXTK 
15350 NEXT J 
15360 MEXTI 

16000 PLRY0.0.e.9RETURN 
20000 REM 
""10 REI1 COMPRRmISOII I..-f=- P'JPTPM 



ITS "S 

20015 PING 
20020 REM 

20U3'J ■-■r. = 0PT=8 
20035 PRINT PR1HT PRINT 
20940 PRINT"REGflRD0HS 31 VOUS HVEZ 
BIEN DECRIT L' RGGRESSEUR. ■ 

paws Fur.-i-?-::'i.iorij:-;iO':"JiTEF58'SOUNDi 

.I.V0 NEXT! 

£i-,n-.y ii-v=-..'-rMEii-iL.=i;*::-i.iLppiNi v 

ISRGE FRUX"CCi£UE:;5000 

28055 PRIHT 

20060 IPi>i. I THEM:'.-- i-C* !0tLSEPRlNT"M 
Rin.'RJ'i CHEVEU.:" i.OiU825000 



20065 PR INI 

20070 IFO-OT 
£ NE SONT PRS L 

20072 IF0< >OTTHENGOSUB25000 

20075 PRINT 

20080 IFY=YTTHENSOSC+2BELSEPRINT"V 
OUS NE VOYEZ PRS BIEN! " GDSUB23000 

28B35 PRINT 

212S0 IFH=NTTHENSC=SC+15ELSEPRINT"V 
OUS H'HVEZ PRS BON FLFHft!"-GOSUB2500 
8 

20095 PRINT 

20100 IFe=EiTTREHSC=SC*20ELSEPRINT-R 
ECRFT.€i NiFU;-: LR EIOUCHE" GOSUB25O00 

20105 PRINT 

201 10 IFM»MTTHEHSC-SC + 15ELSEPRINT"M 
ENTON FRUX! ! ! " GOSUB25OO0 

20115 PRIHT 

20120 IFS=STTHENSC=SC+15ELSEPRINT"M 
HiJ'.-'Hl'- '-OURCILS...CR WR MRU''- ■ . U =: i_J Ej ;-■ 
5008 

28125 PRINT 

v.,i:m ppimt"regrrdons mrintenrnt si 
vous n'rvez" 

20140 print'prs oubme de signes pr 
rtiguliers." 

20145 F0Pi = . : v---.f: 
iltVO NEXTI 
20147 PRINT 

:-01':..0 lFFJD-^:iJllltli'iC=S.C+£eELSEPRIHT" 
...ET LR BOUCLE D' OREILLE I " : COSUB250 

00 

20155 PRIHT 

20160 IFnu-NI.HHF.ll-T.... .;!> I 0( ; .'_ -:.:.! PINT ■ 

■iMUVfiri.Lko l-H.i'.":-. 1 Hi:Hf::. ' ■■ i:OSUB25O00 

20165 PRIHT 

ZOl.-O IFBH»EiVTHEH'iC=P.c*l-.ELSEPRlNT" 
REGRRDEZ HIEUX SI C'EST UN BOUTOTEUX 

20172 IFBHWBVTHENGOSUB25088 
£0175 PRIHT 

;oi30 iFci=ci.iTH!7ir.j =:.i -,i-,e.i sprint- 

(HH.LE'i CICATRICES • " GOSUB25880 

20185 PRIHT 

ji'l-jy iF.:H=OVrHEiliC=Sr>lOELSEPRINT" 
UN GRRND CHRPERU CR SE PEMRROUE!" 

20192 IFCHt '.CVTHEMGOSUB250O0 

20195 PRINT 

^-M-i IFC>i..L-rH!:N-:.i.=SC-H5ELSEPPINT" 
LR COULEUfi" DE'r. CHEVEu:-: E?T 1MF0PTRNT 
E" 

20,:Vi5 IFu.-.- :i:DIHEIn:,u'v.'.ltv t ..|ihO 

28287 PRIHT 

z^aio i FCY=u:iHtN';i; ■=■;<; ■'i-'jELSEPRlNT" 

ETES VOUS DRLTOHIEN?" : GO&UB25880 
20215 PRIHT 
20220 PT-SC»5*< 500-01 .■ 

23225 ifpt;othehpt=o 

20227 ppint"v0us rvez frit ":er;"er 

20..7'' FPlllfVOTRE SCORE EST DE ".FT 

i "POINTS. " 

20500 F"OPI = iro500 S0UND1-I.V9 NEXTI 

20510 PLRYO. 0.9.0 

21000 REM 

21010 REN RFFICHRGE DES DEUX PORTRfl 



COMPLETEZ VOTRE 
COLLECTION 

Vous pouvez maintenant obtenir les anciens nume- 

ros d'Hebdogiciel. les numeros 2, 5, 6, 7, 8, 9, 10, 

11, 12, 13, 14, 30, 31 et 32 sont deja epuises, les 

autres sont tous disponibles immediatement y 

compris le num6ro quadruple d'Aout 1984 (recou- 

vrant les numeros 42, 43, 44 3 

Prix du numero 8 francs. 

Prix du numero Special (42, 43, 44 et 45) 24 francs. 

La participation aux frais. d'emballage et d'expedition 

est de: 

1 a 4 numeros: 1 francs. 

5 a 10 numeros : 15 francs. 

+ de 10 numeros: 25 francs. 

(Le numero quadruple d'Aout est a compter comme 
3 numeros). 

Commande a envoyer sur papier libre avec votre re- 
glement par cheque, a SHIFT EDITIONS 27 rue du 
General Foy 75008 PARIS. 



LE'" 
21830 X=8'Y=10 
21035 INK0 
21040 GOSUB4540 
21050 URIT300 

210^0 ppiht-ppiht 

210;-0 PRINT" LE NEUPTRIEft... VOTRE 
POPTRRIT ROBOT" 
21100 FRINT" flPPuser- Sur CR3 Pour 

22010 GETRE* IFPE»-,>' , R ,, THEN220ie 



22845 TEXT Z6220 PLOT-; . 15 . "0" PLOTl l . 15, "5" ' PL 

22850 CLSPRPER3 INK4 0T16.13."1B" PLOT2I 15. "15" 

22-2E0 FF1I!T:PRINTPR1NT-PR1NT 2C220 PLOTS. 14 """ PLOTl 1 . 14, """ ,PL 

22070 1FER=OTHENPPIHT"BRR I -,'0,VOUS ET 0T16 . 14, "■•■■ PL0T21 . 14, ■'"■' 

i:- ■-.i.irf: !'i-vpn.ii-ni--." i.oiui.--.--,'o 2-::-io plot;. 15. t plot 2, 14.5 

i'2-i--" IFtP. InlHbHf'PINI'-UH it DtHHHL i-.-'-O PL0 T ;.20 2 PLOT5-20."RPPUYER 

E SI VOUS VOYEZ BIEN !!!?"' GOT022270 2U' HEiPRCED -UUS FJHIR" 

22090 1FER>9THENPR1NT"R VOTRE PLRCE 263B0 IFPEEK< #293 >=»aCTHENZ7000 

JE NE CRCHERRIS."G0T02227a 26400 IFPEEKf *208 >-*94THEH28000 

-.,-,. lj, ;.,.[ (.,. : .,i fifinr-vr.nicr-woiii 26500 ["iELK- -..:■: -»a4r»u;Ni-"Joau 

reconmencer 10--N) ?" 26600 GOTO2630O 

222e0 ."12TRFS: IFPS="N"THENTEXTiENO 27800 PLOTX0*6. 12, 127 

222^0 IFRFS="0 M TNEN480 27005 XO=X0-1 : IFX0<8THENX0=0 

23000 PRINT PRIHT PRINT"flu rtvoir.. 27010 SOUND1.50.X0 

.■-END 27820 PLOTXO+6,12,168 

25660 REM 27950 GOTO26300 

FORI=99Q0TOOSTEP-1000 28000 PLOTX0+6- 12. 127 

S0UND1.I,V0 28005 X0=X0-M IFX0>15THENX0=15 

28018 SOUND1.188,X0 

NEXTI 2B820 PLOTX0+6, 12, 169 

ER=ER-»1 26050 GOTO2630O 

RETURH 29000 VO=X0 RETURH 

REn 30000 REM 

REM CHOIX DU NIVERU SDNORE 3001O REM DRTR MUSICflUX 

REM 30020 REM 

CLS^PRPERO^ INX1 33B30 DRTR3. 1 , 40, 3. 3. 18.3,6,10,3,5, 

PRINT 18.3.3.10-3.6,25,3,8,23.3,8,10,3,18, 

PR]HTCHR»CZ7> f "E";CHR»C27),CH 10 ^ „„ . 

■M V0LUME I, ;CHR*(4) 3W*® DRTR3, 5, 10, 3.6, 19, 3,3,25, 3,3, 

PRINT 20.3,3,10,3,6.10,3,5,10,3-3.10,3,1,1 

PRINT -PR INT ; PRINT' PRINT e „ „„„ 

PRINT" ENTRER LE NIWERU DU VO 3ee5e DRTR4 . 1 , 18.3. 12, 10, 3, 10. 10,3. 

L'RIDE " 6.18.3,6,10.3.5.10.3.3.10.3,1.40.3,3 

PRINT" DES TOUCHES CO ET Z>3 ''® „ 

20Bbo DHTfli.--.. 13,3,5,10,3.3, 18,3, B- 

168 PL0T3. 11.4 PL0T3. 12.3 >PL0T3,1 25.3.6,20.3.8,18.3.10.10,3.5.10,3,6. 

10 
170 F0RI = 11T013 SOO^O DATftrj, 3 ■ 20 1 ■ J. £5, .3. 3. 10, 3.6. 

F0RJ=5T022 10.3,5,10.3,3,10-3.1,18,3.8.10.3,3,1 

PLOT J, I, 127 B 

>62ae NEXTJ 3B0ee DRTR3, 5. 10. 3. 1.30.-1,0,0 _ 

26210 HEXTI 5O0OO RETURN ■ 



25810 F 

25020 - 
25030 k 
250-1-.' ■• 
25858 E 

.-.-5500 ■ 



LUME 



REVENDEURS 
NOUS POUVONS VOUS 
FOURNIR TOUS LES LOGI- 
CIELS DE CETTE PAGE A UN 
TARIF PREFERENTIEL. N'HE- 
SITEZ PAS A NOUS CONTAC- 
TER AU : 16 (t) 294. 28.50. 




DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meiUeurs logiciels actuellement disponibles en France. Nous ne 
pretentions pas que cette liste est complete et definitive et it est evident que nous v rajouterons regu- 
lierement des programmes au fur et a mesure que nous les testerons. Pourtant, vous chercherez en 
vain certains programmes qui jouissent d'une bonne reputation et qui se vendent surtout grace a la 
publicite et aux conseils des vendeurs qui ne peuvent pas connaitre tous les logiciels disponibles. 
Nous avons classe a part les logiciels educatits et, par soucl d'honnetete, nos propres prodults : les 
Hebdogiciel Software. 

Les prix sont, nous I'esperons, les meilleurs du marche surtout pour les abonnes - anciens et nouveaux 
- qui beneticient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette expe- 
rience nous pourrons rapidement arriver a taire baisser les tarifs des fournisseurs pour atteindre 
I'objectif que nous nous sommes fixe : ramener les prix a une plus juste valeur ! 



PARKER 



^ 



lassements sont tails en for 

Tie el ne liennen! pas compt' 

tie I'opportunite de la depense 

me pas que si le rapport qualite/pi 

ne peul figurer dans celte page ' 







LOGICIELS 


Old.™!*,,-* 


Pn> 


iji,. 


Monkrt 












Pamc.panon a u 








-• 1 <=. 00 


REDUCTION 10 --- SPECIAL ABONNES A DEDUIB& 

N" abonne (obligatoire) > i < i 1 


- , 


MONTANT a payer 




dale de la commande: 





REVENDEURS 
NOUS POUVONS VOUS 
FOURNIR TOUS LES LOGI- 
CIELS DE CETTE PAGE A UN 
TARIF PREFERENTIEL. N'HE- 
SITEZ PAS A NOUS CONTAC- 
TERAU: 16 (1)294.28.50. 




DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilteurs logiciels actuellement disponibles en France. Nous ne 
pretendons pas que cette liste est complete et definitive et il est evident que nous y rajouterons regu- 
lierement des programmes au fur et a mesure que nous les testerons. Pourtant, vous chercherez en 
vain certains programmes qui jouissent d'une bonne reputation et qui se vendent surtout grace a la 
publicity et aux conseils des vendeurs qui ne peuvent pas connaitre tous les logiciels disponibles. 
Nous avons c/asse a part les logiciels educatits et, par souci d'honnetete, nos propres produits : les 
Hebdogiciel Software. 

Les prix sont, nous I'esperons, les meilleurs du marche surtout pour les abonnes - anciens et nouveaux 
- qui beneficient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette expe- 
rience nous pourrons rapidement arriver a faire baisser les tarifs des fournisseurs pour atteindre 
I'objectif que nous nous sommes fixe : r amener les p rix a une plus j uste va leur ! 

SOFT- PARADE € 




on! faits en fonction de I'interet du pro- 

*■** bbhio ■isMiiertl pascomptedesprix.c'estavousde 

juger de lopportunite de la depense N'oubliez quand me- 
— pas que si le rapport qualite/prix est mauvais, le logiciel 



ne peut figurer dans celte page 
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COMMODORE 64 N° 1 





HARD HAT MACK 



lessommels de lespionr 
P ACM AN & Mr* P ACM AN 



"lode P I m ALL CONSTRUCTION 



APPLE 








1- LODE RUNNER 


10 El 


TTTa** 


300 00 


2. PARANOIAK 


1 SHIFT) 


F , ., -- 


390 00 


3. CHOP LIFTER 








<- EPIDEUIE 


(SHIFT) 


■" V P. ■■ 


iso do 










0. PACMAN 


1 All' unit) 


A , V ■ • 


301.00 


7 M» PACUAN 


LAllfWJtll 


A 1 M * 


350.00 


















ID. DHOL 


(A1010R) 


A j U , 


300.00 










11. ONE-ON-ONE 


(AttOHTII 


A J M -- 


310 00 


ij. A.f 


(0 CI 


A J M 


isa. oo 














A V _R ~ 




11 IFR, SIMULATEUR OE VOL 




L'H. 




17.FUQHT SIMULATOR" 


(OE) 


A . R 


100,00 






A I * 




l« MASK OF THE SUN 


(OE) 




300 00 


M.CHOC»OEBHUl.riNATIOH 


ALES (Ifln-UHjlclOa 


ELH * 


US.M 


HE.DOC-IC.EL SOFTWARE AP, 


LtN-1 


I i sTE 


S.0.00 


UMUEMIWWMMIUIIT 


(Vih) j'.pprMM 




SUM 


HAHSELETOREIEl 


iv.hu apoNHWi 


ti<n..il>.coni« 


US.OO 


CANON 








HEBDOGICIEL SOFTWARE CA 


"0N.G7NM K7 


f J R V 


1M.00 


COMMODORE 64 








1.LOOERUNHEH 


MODULE (AnoiM) 


. j u ♦ . 


3(0 00 1 


I. NECROWANCER 








J. AXIS ASSASSIN 


0I5K (Arloporl) 


A "j M ♦ 


3B0.00 1 




K7 IHIHW—H 






0. PIHBAU- CON9IRUCTI0N 


DISK lAnniDtl) 


A . ,, ■ 


300.00 1 




MODULE lAnaum 


"A.M. 








A". J. U - 




1. DROL 


DISK (ArtOMfll 




300.00 


a. ARCH OH 




A . v ■ 








A , M. + 




11, u„ PACHAN 




A , M t 




12. ZAXKOH 


«' (Annum 


A I M 


310.00 






F- j> ♦, 








A J • U . 
















3n& 




17. JEEP 


KT (L0«i.l.|. 




• 10.00 





ORIC 1/ ATMOS 



ll«Oo«m..|[A][j] +H 

■i,,..i„ , ;. . .- 
iuj BHB- 

«-» 33 



«. 


BE * 


KM 


ANT EATER 




-I0S *+ 














(Ere 


BSE* 


19,00 






.„, F V- B ■ 






lb* 


* , ■ 






IE,. 


HE ♦ 


H0.00 





TEXAS TI/B9 



n B0B« 

ii BQ§- 

i, Han. 

■ * D " * 

- . , „ . 

r , ■ 

«■ I3i 

.7 B0HH 



THOMSON TOT 



BUGABOO ///?' 






3K- 

Tl 99/4A N" 3 



CENTRALE NUCLEAIRE 



LE CHATEAU Dl! DlflBLF 



LE RUBIS SACRE 



I BON OE COMMANDE A DECOUPER OU RECOPIER : 
I SHIFT EDITIONS, 27. rue tfu Gal Foy 75008 PARIS 



LOGICIELS O.dinBteurs Pn, Ore 



TOTAL 

REDUCTION 10 % SPECIAL ABONNES A DtLUIHF 

n"abonne (obligatoire) i . < i i . . 
MONTANT a payer . . 
dale de la commande: 



DEAD ZONE 



SPECTRUM 



Ce programme simule un combat sur Mars. Votre zcie 
est divisee en 5 secteurs: ALPHA, BETA. GAMMA 
DELTA et DEAD ZONE. Pour gagner, il faut abattre la 
super cible situee dans la Dead-zone et regagner votre 
base sans degats. Mais pour cela, il faut abattre cha- 
cune des petites cibles dans chacune des 4 premieres 
zones (Alpha, Beta, Gamma, Delta) et auparavant, il 
aura fallu envoyer par le fond tous les navires ennemis 
prot6geant la zone attaquee. 

Jean MARTINON 

Le systems d'attaque de volte sousmarin est Ires perlectionne, il 

possede plusieuts fonctions 

1 ■ Carte;Vous visuatisez ainsi irrmed'alemeni vofe posilion, cells 
de votre base, ceiie des pctiies cibles e! ceiie de la super- 
cible. Celte carle vous donne aussi ie secteur ou vous 



etes et le nombfe d'ennemis qui s'y trouvent. 

2 - Combat: 3 alternatives: 

Attaque navire vous fournil: voire position, la posilion de la super 
cible, voire vilesse et le nombre d'ennemis vous entourant. Le pro- 
gramme vous demande si vous voulez attaquer un navire a proxi- 
mile. Si vous avez bien calcule, vous verrez disparaitre un navire 
ennemi. L'asluce consists a attaquer les secleurs qui sont peu de- 
fend us a haute vitesse. 

Atlaque cible: si vous etes sur uns cible (meme position qu'elle) et 
s'il n'y a plus d'ennemis dans le secteur. vous pouvez attaquer la 
cible. Pour delruire la super cible, il faut avoir pieaiablemeni abattu 
toules les cibles ordinaires. 
Retour: Renvoi au menu general. 

3 - Navigalion:Cetle option vous permel de vous deplacer sur le 

plan de jeu. de changer de secteur et de vous placer 
sur les diverses cibles. Elle vous communique: voire 
position, votre Vitesse (maxi 40 noeuds) le secteur 
ou vous vous trouvez. le nombre d'ennemis en 
place, la position de votre base et celle de la super- 
cible. tci aussi 3 alternatives: 



Changemenl position: Direction verlicale? Entrez S 
ou N ENTER. Direction horizonlale? Entrez E ou O 
ou ENTER. Les indications sont react uali sees. Le 
nombre de cases du de placement est proportionnel 
a votre vitesse. 

Changement de vitesse: "Vilesse?" enlrez la vilesse 
souhaitee soil < = 40 noeuds. 
Retour: renvoi au menu general. 

4 - Periscope:Vous donne un apercu du champ de tir, devanl vous, 

ainsi que le secleur el le nombre d'ennemis s'y Irou- 

5 - Tableau de bord:Tres utile car il fournit, oulre la position, la vi- 

lesse, elc... le nombre d'ennemis dans chaque 
secteur ce qui vous permet de decider ou lan- 
cer votre attaque. 
Quelques particu la riles: Apres avoir de"truil la super cible, il suffil de 
se placer sur la base pour gagner. Apres avoir delruit une petite 
cibfe, I'ennemi reequilibre ses forces, e'esf a dire, qu'il met un nom- 
bre egal de navires dans chaque zone, ce qui permet d'attaquer une 
zone trop defendue jusque la. 



SECTEUR: ALPHA 


US',\ 


1 1 1 1 1 1- 


-MINI 
• . 1 


NOHBRE D'ENNEMIS: 10 






INK 6 BORDER 5 



en s; " t "; at i- 
-t ".at wijii i 

AT 16,1*. PAPER : 
E 0: CLS : INK 6 



ft£ 



20 GO SUB 9993 

31 INK 1. PRINT AT l.l:0;AT 20 

.l;8;AT i,30,0;AT 20,30,0 

3B PRINT INK *,AT 3,13, INUERS 
E IJ-'OPTIONS" 

4B PRINT : PRINT : PRINT : PRI 



ea print tab 3; ' 

PRINT 

78 PRINT TAB Si ■ 
(ON"; PRINT 



1,8: DRAU 8,175 



1*0 IF INKCYi.'X" THCN 00 TO 80 

if 

168 If INKCYi = "N" THEN GO TO 30 

00 

160 IF INKEY|."P" THEN GO TO 40 
00 

170 IF INKEY«.'T" THEN GO TO 50 
00 

1S0 GO TO 1S0 

997 rem =.= === = =..».==»«,.. 

996 REM kiiii CARTE ..... 
999 REH .........:•=..■=.===.=. 



■.22;s* 



RINT 

1010 r 

1020 ■ 

NK *, iu 

1030 PRI 

UR: ■' 

10*0 PRI 

1050 PRII 

1060 PRINT AT 11,22, INK i."N0ne 

RE" 

1070 PRINT AT 12,22; INK 1;"DEN 

NEHI5" 

1060 PRINT INUERSE 1; INK 5; AT 1 

5,25;NIL) 

1090 PRINT AT 31,38; FLASH 1, IN 

1100 plot i67,i?5. daau 0,-175 
plot 160,175: drau 0,-176 

1110 plot 60,175: drau 0,-62 pl 



1136 PRINT AT 3,3, INUERSE 1, : 

1130 PRINT AT 3,13, INUERSE Li 

NK 7, "BETA" 

11*0 PRINT AT H,a. INUERSE 1, 

JIM PRINT AT 17, B, INUERSE 1; 



,10, 



!R»e : 



-IBS PRINT i . 

ERSE 1, INK a, "A" 

1160 PRINT ST PUB.PH6. PAPER s, 

■'■ "■ INUCRSE.l, OUER l,"t" 






1190 for 

1195 IF 

O TO 13 iu 

ia00 PRINT AT L(I] ,1 
. INK 0; OUER 1. BR 

1310 NEXT T 

— ">RINT 



1220 PRINT AT RUCPHC. FLASH 1, 
BRIGHT 1 PAPER *, INK 1;"2" 
1330 BRIGHT 1: GO SUB 9990' BRIG 



MT 

1340 PRINT 



e 

POSITION 1,1 


'I' 


■* 


UITE5SE: NOEUD 




POSITION 


SECTEUR' ALPHA 




<3>>CH. 
UITES3E 


NOMBRE D'ENNEMIS: 


10 


<3> = 
RETOUR 


POSITION BASE:6,1 






POSITION CIBLE 10 


,10 







9 





UITESSE0 NOEUDS 

POSITION BASE:6,13 

POSITION CIBLE 10,10 



© j^n 



MM 

I.-iC ■:■_= BEEP .1 ,10 

B03J1 r : R 1 ; T0 s l PRINT AT 1,0 

2030 GO SUB 9990 PLOT 96,175 
RRU 0,-175 PLOT 97,175: DRRU 0, 



3065 - 

3, "NRUIRE' 
3070 PRINT AT S 
3, ■ <3>.ATTAGUE' 



13; INI 



7;8 



6- ■■ ■. j i=RET0UR" 

3090 Input ■ qpi 



■ 28,38, e 

»; IN'JEPSE 1. PA 

Tious ' 

1, PAPER 6, INK 

3, PAPER 6; INK 

1; PAPEA 6, INK 

,3, PAPER 6, INK 

,1; INK 3, PAPER 



'■; LINE I 
■ OR R«>"3" THEN GO isaS : _ = t"Sijm' 



CLS GO TO 30 



3130 RANDOHIZE 

31*0 CLS : 00 SI 

A int at 1,1:8; §? 

0,at aa.30,0: I' 

a 150 PRINT AT 2 



9998: INK J 



.^"POSITI a7a . 



3710 CLS : GO SUB 2241 



)'SUB^290 



i-± 



2170 PRINT AT 6,6; INK 3; "I 
D'ENNEHIS: ", INK 7; INUCR? 
T 10,18iNlLI 

2180 PAINT P.T 14,12; INK 2 
53E;";AT 16,10; A 



2730 GO I 

27*0 FOR 1 = 1 TO 3: FOR .--. 
OUT 25*. J NEXT J NEXT : 



OUT" 



2190 PRINT fl- 
5E l," DECISiun u- n 
> '■ INPUT LINE R» 
2195 IF R<< t"0" AND 
'" 2190 



INUERSE 1 
19,2; INK 6, INUER 



2300 : 
3000 
2310 IF t 

PAS D'EW 

PAUSE 100: 



GO TO 

|0 THEN PRINT B0; ' 

1 LE SECTEUR ' 

GO TO 2800 



PAS D'ENNEHIS DANS LE SECTEUR 

PAUSE 108: CLS : GO TO r — 
2320 LET KX.INT !(P,N0*3e■ 
)l ..-.. i . ■ !■■■ I 
2238 IF KX(0 THEN 00 TO 9300 
3335 CLS : INK 4 
2340 GO SUB 3341 SO TO 2260 
=='1 PLOT 52,151 DRAtJ Ink * 
PLOT 52,21; ORAU INK 



27S0 FOR 1-20 TO 1 STEP -1; BEEP 
.006,1: NEXT I 

■.: I'.'ER 1: GO SUB 2290: OUER 

2770 cls : print na; flash i, " 

MISSION ACCOHPLlE ... 
PAUSE 100 INPUT "";■ PRINT BO, 
AUTORISATION OE RETOUR " 
277S LET PkJC = 0: LET PHC=0 
2760 PSUS6 0: CL5 : GO TO 20 

2999 STOP 

3000 Reh ■*■■■■ ..■■..:.... 

cm ■(■■■ nauigation •••••« 

::■ = = = = = = = = = = = = «=- = ,,:,,!=,■ 

3003 

3010 CLS : BCCP .1,10 CO SUB 90 
3015 FOR 1.0 TO 21: PRINT PAPER 
3020 G6 SUB 9990 



2242 PLOT 53,151: ORAU INK 4;l! 
,0: PLOT 53,24: ORAU INK 4; 169. 

2243 PLOT 52.151: ORAU INK 4;0. 
137, PI/1. 9 

3344 PLOT 311.151: ORAU INK 4;( 

-137.-PI/2.S 

2250 PLOT 120,151: DRAU INK ?;< 

-127 PLOT 34,06: DRRU INK 7;2( 



3B50 CIRCLE 159 
16B DRAU 0,-B 
3060 CIRCLE 158.: 



3B90 INK 6 






2278 FOR 1=33 
OT 1.70: DRAU 
3375 RETURN 
3300 II" " 

10,15 
2203 PI .. 

z?.*z :;■ sue 2290 

2^3S LET Al=6f 

Bl=35: LET B3 

2300 FOA 1.1 TO 66 

1,01. PLOT INK 

2310 LET A1.A1 
3320 LET B1=B1 



I STEP 16: PL 3112 IF 



3180 60 SUB 9990 

3110 IF UP<-1 THEN LET UP»1 

3111 IF HP(=1 THEN LET HP.l 

'■-" .30 THEN LET UP=20 
Jiio ir ni-.=20 THEN LET HP = 23 

3114 IF UP=PUB AND HP=PHB AND PU 

;=o Him l..;:vj ,un~- Liai=e and li 

.■■'■-0 i-iNC- I. .l'. ■:« IMtM r-0 TO 0400 

3115 PRINT AT 2, J, INK 3;"P0SITI 
ON :", INK 7;UP, INK 3,",", INK 



--. PLOT INK a;* 
2, R3.B2 

1: LET R2=A3-1: 
1: LET B3.B1: NE] 



3130 PR INT 'AT 
3140 PRINT RT 
fl: "; INK 7;s* 



2346 F0R 3 ii7 fo'30 PLOT' loS^ND 
*55,B5*RNDt30 NEXT I 



E D'ENNEHIS: ' 
3151 PRINT A^ 



2350 FOR I=: 
-I. NEXT I 
33S1 OUER 1: .- 
2355 PAUSE 30 

3386 LET t 

THEN LET I 
2360 CLS 

2396 REH 

2397 REH . 
3390 REH , 



,=1 TO 30: BEEP , 

l" OUER J,] GO SUB 3390: 

__.i PAUSE 30 

23S6 LET NIL) =N1L1 -1: IF t 

THEN LET NIL) =0 

2360 CLS : GO TO 3000 

2396 REM 

2397 REH 6ASE 



3152 PRINT AT 
ION CIBLE "; 
"J INK 7; PMC 
317B PRIC" - 



1,1, INK 1, "POSIT 

7;PV0; INK 1 ;•',-■ 
l.i: INK l;"PQSI.T 



INK 6, INUER 
INUER 



-,33, Ink b," 






2,10; ''posi 



ON cible.", ink 7,puc; Ink 3;' 

, INK 7.PMC 

2430 PRINT AT 8,4; INK *;"POS: 

ON CIBLE OU SECTEUR:" 

3*31 IF L«S THEN LET FQ.PUC I 

GH.PMC: 00 TO 3435 
2*33 LET FG=L(LI LET GH=CiL> 



SE 1, "OPTIONS' 

3190 PRINT AT .,«o, ii 

H.'jaT 3,aa, "position' 

3200 PRINT AT 7,23, INK 5;"<2»»C 

H.'. AT 6.22, "UITE55E" 

3210 PRINT AT 10,23, INK 5,"l3n 

",at 11,22; "retour" 

3330 Input line \<% 

3330 if r«<>"1" and r|<)"3" and 

r*(."3" then go to 3230 

3240 IF PJi'-a" THEN INPUT "UTTES 

5E 7 IWl IF U>10 THEN GO TO 32 

40 

3250 IF C*="l" THEN INPUT "DIREC 



■!•■ ? • 



■nt- :. 



line ; 



PIREC 



24*5 

2450'PRINT~AT 
SE 1. BRIO" - ' 
E NORMRLE" 

PRINT . 

BRIGHT 1, 



INK ■ 
INK i 



TION MORIIONTALE ■- ... 
325a IF Rt."l" THEN GO SUB 9000 

GO SUB 3988 
3260 IF R«="3" THEN CLS ■ OEEP . 
1,10 GO TO 20 
3270 FOP I>2 TO 19' PRINT AT 1,1 

NE>T • 



LP uraie 39ee Reri 




3910 IF U«="5 
UR+U/183 
3920 IF U**'T. 

3930 IF H« = "E 
HP*U/10I 
3935 IF H» = "C 
MP-U/10) 
3940 GO SUB S 

3998 STOP 
399"? REH = = = ; 

3999 REH :=== 



' THEN LET UP. INT 

■ THEN LET UP=INT 

' THEN LET HP = INT 

1 THEN LET HP. INT 



2100 INPUT LINE fit: IF R|,>"N" R 
NO Rjo"V" THEN GO TO 2*88 
2190 IF P,i = "U" THEN GO TO 2700 
2500 IF UPoLILl OR HPOCILI OR 
CiL>=0 THEN CL5 ; GO TO 2000 
;-:;: :\_i GO SUB 22*1 INK 6 

.-:,:,• :-t:ui at ■:■■ . is . ■ I ' »i f , i=. 
J", AT 7,1B;"I";RT 10, 15; "■ " . AT 
9,15, "■ ";RT 8,15; "I" 

;.-:■; -_:- ::o.i2a drau 33,0 pl 



L'B 9030 



4020 PLOT 52, 151 ... 
,0: PLOT 52,24 DRAU u 

1825 plot sa.isi drau 



; plot 211.151 drau ink ■ 

'.-RI/2.5 

I pctnT AT 1,10: INK 1,"51 
. 2,5* 



6090 let pub=: 



=B THEN GO TO 8898 

8118 DIM L15I 

0120 DIM CI5I 

8130 LET CID.INT iRND.91 *1 

8140 LET Lll)=INT (RNDt5! .1 

8111 LET L'S;=:r,T LRND16) +1 

0150 LET C(3)=INT ,RNO. 91.11 

6160 LET LI31.INT IAN0*6) *0 

B170 LET C13!=INT iRN0«7).l 

0160 LET LI4)=INT ,RND«6)tll 

8190 LET CI4l=lNT (RND«30).l 

8200 LET PUC=INT IRND»51 .8 

6210 LET PHC.INT IRNDH2I.B 

8211 LET L.5'=PUC LET Cl5l=PHC 

8213 RETURN 

3397 REM ========.=..=;=..====:. 

■;-5 3S REM = = = = = = = GAGNE ■■■■■•• 

8399 REM ===:===.,=====. .....,., 



81 30 t'AI A , i" , . /:■ . 7 .s5,7.1.18 
, .75,13, .75,14, .75,14, 1.25 i9, .8 

8.11,1- is 

■ ■;; 1 '0 fORDER 5: CLS 
1 8510 FOR 1=0 TO 21 
6520 POINT AT 1,0, " ip 

13 BLEUS.ll BLANC5.12 ROUGES 
BB30 NFXT T 

LA FRANCE SAL 



.10'ii? IF-' ■ 



UE SON HEROS 



I GO TO 4995 ( 

ink 3, "nohor ( 
:n print at 0, £ 

",AT 10, 15, "4 j 



4^90 IF 2..NIL1 TMEN T PRINT AT_6, 9iaa j OEM =... = . = = =.! = *= = = = = . = ... 

1100 IF 3(=NiL'*HEN PRINT RT 5. 9BB3 

Ihii^F^-Slff'T*; PAIKT AT 4, &™ *" "" > "" ™ CN *** S«-"OELT 

i?20 A GO TO 4995 ?'IS. S Set5- 1 " 7 *"° MP> " le ™ CN LE 

189= STOP 9030 IF UP<»7 AND HP < 10 THEN LET 

4900 REH ===============..=====. S^-ALPHA" LCT 

1910 PLOT 128.151 DRAU INK 7,0, 9040 IF UPJ7 AND UP<1* AND HP<8 
-127: PLOT 24.00 DRAU INK 7;207 THEN LET 5»."GAHHA" * 

492B FOR 1.144 TO 24 STEP -16; P THEN LET P sJ = "D|AD P ZONC" Nt> HR> " B 

LOT 110,1: DRAU INK 7,20,8: NEXT 9060 IF UP>21 THEN LET UP=21 

I 907B IF HPJ21 THEN LET HP-21 

1930 FOR 1.33 TO 339 STEP 16 PL 9080 IF 5,='ALPHR THEN LET L.I 

01 l.-.S. DRAU INK 7,0,20: NEXT I 9090 IF 51 i-BETh" THEN LET L.3 

4990 RETURN 9100 IF li*"9fiWS' "MEN LCT L-3 

4995 PAUSE 0: BEEP .1,18: CLS : 9110 IF S»="OELTA" THEN LET L-4 

CO TO 20 9120 IF S»»"DEfiD ZONE" THEN LET 

4999 STOP L=5 

5888 REH ■■■■•■■■•>■•■■■=■■>■■■■ 9200 RETURN 

3081 REH =.. TABLEAU DE BORD ■■» 9297 REM .....«-■«■«»»«*«»■«■■■■. 

5002 REH = = = = = = . = = = = « = = = = = .. = = = = 9298 OEM >«.».= PERDU .«■««■.. 

5003 9299 REH ntn> = = = . = . = = ».« 

9300 

S010 CLS ; OEEP .1,10: GO SUB 98 

80 9381 FOR j*l TO 3: FOR 1-0 TO 7; 

5020 GO SUB 9990 OUT 254,1: NEXT I; NEXT J: OUT 

5030 FOR 1.16 TO 31: PRINT PAPER 254.5 

*;RT 1,0;" 9305 RESTORE 9320 

": NEXT I 9318 CLS : FOR LI TO 11; READ A 

50*8 INK 7: CIRCLE 18,165.* PLO ,0: OEEP Atl.33,6: NEXT I 
T 0,165; DRAU 5,0; CIRCLE 10,55, 9320 DATA .35 , -1 , .3, -1 , . 1 , -1 , , * , 
4: PLOT 8,57: DRAU 5,-5 [ -I. .25,2,. il. i, .25,1, .15,-1, .25, 
S0S0 CIRCLE 245,165,4: PLOT 313, - 1 , ■ 15 , -2 , . 75 , -1 
167: ORAU 5,-5: CIRCLE 3*5.65,4: 9360 PAINT AT 21,24, INK 2;"iRDI 

PLOT 243,65: DRAU 5.0 EU>" 

5060 INK 6 9378 PAUSE 0: CLS I GO TO 9999 

5070 INK 3; CIRCLE 30,33,19: CIR 9580 REM *••■•*■•*»■■■■■•■•»■ 
V: ,23,20: 9581 REM => = = = GRAPHIOUES = = i.a 

5000 plot 3B,s3: drru ink 0,13,1 9S02 rem ;==========;i=^====; I = 

0: PLOT 38,23; DRRU INK 0,0,-17 9503 

5090 INK 0: PLOT 150, 30: DRAU 75 9510 RESTORE 9500 

,0; ORAU 0,-20: DRAU -75,0 DRAU 9520 DATA 8,6.26,24,126,60,236,1 

0,20 11 

5095 INK 6 9530 DATA 0,0,0,0,8,0,0,0 

5108 PRINT AT 19.19; PAPER 4;" 95*0 OATA 0,0,0,8,8.8,8,8 

": PRINT AT 19,19; INUERSE 9550 ORTR 0,0,0,0,8,8,8,0,8,8,8, 

1; INK 6;3« 

3110 PLOT 0,50: ORAU 0,125: ORAU 9500 DATA 8,8,8,8,1,3,1,3,3,7,3. 

255,0; DRAU 0,-125 7 

5120 CIRCLE INK 3,90,23,19 CIRC 9570 DATA 0,126,0,130,130,192,12 

LE INK 3;90,23,30 0,193 

5130 PRINT AT 1,3. INK 3;-P0SITI 9508 DATA 23,15.31,137,31,119,3* 

ON:", INK 7, UP; INK 3,","; INK 7 7,247 

;HP 9590 DATA 232.240,224,253,210,25 

5140 PRINT AT 2,11; INK 3;'UITES 2,255,355 

SE: ; INK 7,U, INK 3," NOEUDS" 9600 DATA 64 .22* .6* .23* ,6*. 331 .2 

5150 PRINT AT 10.1. INK 2, "ALPHA 21,248 

. INK l;Nll) 9618 DATA 3.19.15.3,137.15,135.1 

5160 PRINT AT 12,*; INK 2, "BETA 5 

INC. UNO) 9630 DATA 2*0,248,252,81,254,246 

5170 PRINT AT 14,4; INK 2;'GAHHA ,95,35* 

:'■; INK UNO) 9630 OATA 30,254,126,136,0,8,8,0 

5100 PRINT AT 11,16; INK 2;"DELT 9640 DATA 193,0,240.240,0,0,0,0 

A"; INK 1;N<4) 9650 ORTR 0,8,0,0,7,05,39,17 

5190 PRINT AT 13,16; INK 2,"DERD 9660 OATR 62,191,127,156,255,255 

ZONE:"; INK 1;N(5> ,265,170 

5200 PRINT AT 6,0; INUERSE 1, IN 9670 DATA 128.0,32.64,144,160,19 
K Bi " N0H6HE D'ENNEHIS PAR SECT 2,138 

CUR gftB0 DATA 73,39,27,31,355,127,13 

5201 PRINT AT 6,1; INK 4;"P0SITI 7,63 

ON BASE:"; INK 7; PUB, INK 4;","; 9690 DATA 255,171,255,127,127,12 

INK 7;PHB 7,137,137 

5202 PRINT AT 6,11; INK 4, "POSIT 0700 6aTA 25* , 193 , 35* ,22* , 253 ,35 
ION CIBLE:"; INK 7.PUC; INK 1 , " , 3,254,254 

"; INK 7;PHC 9718 6aTA 6,88.137,6,26,30,73,63 

5210 LET T.T+1: LET AA=T/30*PI 9720 FOR N-USR "A" TO U5R "U"»7 

5330 IF INKEVt o"" THEN GO TO 59 9738 RCRO t> 

98 g?48 POKC N,D NCXT H 

5330 LCT SXbIBiSIN RR LET SV.15 97B8 RETURN 

5348 IF INKEY»<)"" THEN GO TO 59 

98 9770 REM A FG HI J KL H3N OPO 

5350 PLOT 90,23: DRAU INK 8;SX,S 9708 

V 9790 REH A . * I *. "■ .* 

saea if inkevio-- then oo to 59 9000 

90 9610 REM RST U 

5270 CIRCLE INK 3,98,23,19 9828 

saaa plot 90,23- drau ouer i.sx, 9838 rem je t 

S¥: GO TO 5210 96*0 

5990 PAUSE 8: BEEP . 1 , 10 - CLS : 996B 5T0P 

00 TO 30 9990 RCM ='■.=...>.=■..>=....... 

5999 STOP 9991 RCM ••>■• CADRE =.... 

0000 REM :» = <:=:■ s:s:i». 999! REM == = === : =:=: 1 ! = ■ = ■ = = .. = . 

8001 RCM ====aINITIALlSATION==.. 9993 
6003 RCH ==..=>=■>. . ..=.=!.. >.=■ 

6803 9995 PLOT 0,8: DRAU 236.8 DRAU 

8,175: DRAU -2S5 , DRRU 0,-175 

S005 RANDOHIZE 9997 PLOT 1,1 DRRU 253.0- DRAU 

22i? L II y p = . 1; LET MP, 1 «,1'3: DRAU -253,0: ORAU 0,-174 

0828 LET 5«« " 9996 

8030 DIM NiB) RETURN 

8048 FOR 1=1 TO 5 9999 STOP LFT A«."nEQD ?nNF" ■ 

28*0 LET N(I) .INT (RNOlMI** ERASE "M";1,a5 ShUE ."H" 1;AI- 

6060 NEXT I UEAIFY *"H":1;A» ■■ 



S.O.S. HELICO 



Vous etes pilote d'un helicoptfere de sauvetage, votre 
mission est de sauver les alpinistes bloques dans la 
montagne. 

Michel TEYSSOU 

Mode d'emploi: Une fois arrive sur le sommet de la moniagne. ap- 
puyez sur TIR pour faire apparaiire I'alpinisle au moment desire, 
pour o viler les nuages. 



' BASIC ETENDU ■ 



240 CALL CLEAR 
230 CALL SCREEN (51 
260 CALL COLOR 



270 I 



2930 



2,2) 



230 CALL C0L0R(14,16,2) 

290 A»-RPT« ( "O", 121 E."02000000A14FA1 "S.RPT 

»»"0",18)S<"AA0070CBE4F2BECC7BFC" ! HELICO 

300 AA»=RPT*("0",I2)t. ,, AA0OOE13274F70331E 

3F"(.RPT»("0", 12)*> , 'AOO00OO0B2F582" -HELIC 

Q 

310 B*=RPT»("0", 12)i,"0500000041AF41"S,RFT 

»<"0", lB)V550070CBE4F2BECC7aFC" IHELICO 

320 BB»=RPT«<"0", 12) (,"55000E13274F7D331E 

3F"tRPT»t"0" ( 12)fc , -40000000B5F285" IHELIC 



330 C« = ' , 99423C1818iaiBlB" 
ENE 

340 D»=' , 42427E4242427E42" 

350 T*="1B187E1S1B3C7E7E" 

360 E«-"OlO2O40eiO2O40aO" 

370 F»="B04020100B040201" 

3S0 G»=RPT»<"01",3) !DE55II> 

390 H»=RPT«r'BO",B> 'DESSIf 

400 I«="FFFF424242FFFF" ! 

410 X*="G0OF3F7FFFFF3FBF9FC3FFFF7F3FOFOO 

O0E0F8FEFFFFFFFFFEFBFOF0E0C0B0" ! NUAGES 

420 Y»= ,, 8903271F9ElC39F83FlE9ClD2703B90O 

22B0d.87O72FOFB3E3B70F2FOcaao22" IEXPLOSI 



DESSir 



GASES 



ON 



460 M»-- , 001011I118070301010102020202060C 
000080BOOOE2D4BBBOF010I01B" IALPINISTE 
470 CALL DELSPRITE (ALLt 
4B0 FOR 1=2 TO 11 ;: CALL COLOR ( I , 16, 2) ; 



i ! HELICO 
i IHELICO 
I IHELICO 
I IHELICO 

i rALP. 

i I ALP. 
< 'DESS1N 
' IDESSIN 
I IDESSIN 
' IDESSIN 
1 I BASES 
I IECH. 



490 CALL COL0R(12,12 
500 CALL CHAft(56,BB* 
510 CALL CHAR(60,AA« 
520 CALL CHARU36.A* 
530 CALL CHARU40.B* 
540 CALL CHARU2B,J» 
550 CALL CHARI132,K»: 
560 CALL CHARU20.E* 
570 CALL CHARC121,F» 
5B0 CALL CHAR(123,G« 
590 CALL CHAR(122,H» 
600 CALL CHAR C 123, I« 
610 CALL CHAR(126,D» 
620 CALL CHAR(124,C»: 
630 CALL CHARU27.T*) I TOMB E 
640 CALL CHAR (92, X«) (NUAGES 
650 CALL CHAR<44, Y») 1EXPL0. 
660 CALL CHAR(36,L*> IALP. 
670 CALL CHAR(40,H*1 IALP. 
6B0 CALL HCHAR(23,5, 123> 
690 CALL HCHAR(5,30, 125) 
700 CALL SPR1TE(»10, 140,16, 
710 CALL MABNIFY(3) 
720 I — AFFICHAGE DU DESSIN- 
730 CALL HCHAR<3,29, 120) 
740 CALL HCHAR<6,32, 121) 
750 CALL HCHAR(7,27,123) 
760 CALL HCHARI10,25,123) 
770 CALL HCHAR<12,24,123) 
7S0 CALL HCHARf.7,29, 123) 
790 CALL HCHAR(5,31,121) 
800 CALL HCHAR(10,27,123) 
BIO CALL HCHARU5, 14,123) 
820 CALL HCHAR(19,7, 123> 
B30 CALL HCHAR<2I,6, 123) 
840 CALL HCHAR(24,29,121) 
B50 CALL HCHAR<22,9, 123) 
860 CALL HCHAR(22,2B,122) 
B70 CALL HCHAR(21,2B, 122) 
BBO CALL HCHAR!16,24,122) 
B90 CALL HCHAR(2I,2B, 121) 
900 CALL HCHAR<24,3,121> 
910 CALL HCHAR(17,23, 122) 
920 CALL HCHARI20.23, 122) 
930 CALL HCHAR<22, 14,122) 
940 CALL HCHAR(23,25, 122) 
950 CALL HCHAR122,24,122) 
960 CALL HCHARJ13,16,120) 
970 CALL HCHAR(20,27, 
9S0 CALL HCHAR<19,26, 
990 CALL HCHAR(1B,25, 
1000 CALL HCHAR(17,24 
1010 CALL HCHAR(14,15 
1020 CALL HCHAR(15,23. 
1030 CALL HCHARU4.2: 
104O CALL HCHAR(13,2: 
1050 CALL HCHAR(12,20. 
1060 CALL HCHAR(16,1 
1070 CALL HCHARUl.l 
10BO CALL HCHAR{17,1 
1090 CALL HCHARU6.1 
1100 CALL HCHAR!20,12 
1110 CALL HCHAR " 
1120 CALL HCHAR(21,13 
1130 CALL HCHAR<23,I4 



1140 


CALL 


HCHARI24, 15, 121 






CALL 


HCHARI 15. 22, 121 




1160 


CALL 


HCHAR(6,2B, 120) 


w\ 


1170 


CALL 


HCHARUB.23,121 


l* 


1180 


CALL 


HCHAR(19,22, 121 


v 


11TO 


CALL 


HCHAR(21,23,121 






CALL 


HCHAR 122, 24, 121 




1210 


CflLI 


HCHARI16, 10, 120 




1220 


CALL 


HCHAR(24,25,121 




1230 


CALL 


HCHARI17,?, 120) 




1240 


CALL 


HCHAR118.B, 120) 


1 


1250 


CALL 


HCHAR(20,7, 120) 




1260 


CBLL 


HCHAR1B.27, 120) 




1270 


CALL 


HCHARI22.6, 120) 


flft* 


12B0 


CALL 


HCHAR<24,4,120) 


1290 


CALL 


HCHAR(24,2,120) 




1300 


CALL 


HCHAR(^3,9, 1201 




1310 


CALL 


HCHARC9.26, 120) 




1320 


CALL 


HCHAR(21,10, 120 




1330 


CALL 


HCHARI20, 11,120 






CALL 


HCHARIB.29, 120) 




1350 


CALL 


HCHARI9.28, 120) 




1360 


CALL 


HEHARU1,25, 120 




1370 


CALL 


HCHAR(12,26,120 




1380 


CALL 


HCHAR(14,23, 120 




1390 


CALL 


HCHARI13.24, 120 




1400 


CALL 


HCHARU4.23, 120 




1410 


CALL 


HCHARdl, IB, 120 




1420 


CALL 


HCHARI12.17, 120 






V-15 


:: RANDOMIZE ; : 


GOSUB 


DISPLAY A 


(24,3)SIZE(5):" 




1440 


DISPLAY ATI6, 1IS1ZEI 




1450 


DISPLAY ATIB.DSIZEI 
I--TEST DE5 NUAGES— 


Ai 


1470 


CALL 


COINCIALL.C):: 


F C— 


LL DELSPRITE(ALL):: GOTO 




14B0 


CALL 


SPRITS (410, 140, 


6,160 


1490 












1500 


CALL 


J0VST(1,X1,Y1) 




1510 


CALL 


COINCIALL.C):: 


F C— 


LL COLOR! 


110,1)1: T-l 





THEN 



1520 T=T*1 :: IF T=3+TT THEN Cf 

1(10,16) II T=0 

1530 CALL POSITI0N(<U0,X,V) 

1540 IF Y>30 AND Y<70 THEN IF X+YM73 I 

X+Y<183 THEN 1920 

1350 IF Y<134 AND Y>20 THEN IF X+Y>200 

MD X*Y<212 THEN 1920 

1560 IF Y>134 AND Y<250 THEN IF Y-x>67 




NO 1 



Y>166 AND Y<220 THEN IF 
YtXt5/7<:l43 THEN 1*710 
Y>250 THEN 1920 



LL COLOR<mO,l>: : 

1610 IF X1O0 OR Y 

1620 CALL S0UNDI60. 

000,30) 

1630 CALL S0UNDI5I 

1640 CALL POSITIOI 

1650 IF X>152 AND 

Y>20 THEN CALL MOTION 
OCATEOtlO, 160,26: 
LSE 1770 
1660 IF IPO-1 AN] 
70 



65 THEN IF Y--.32 AN 
■10,0,0)1: CALL 
IP0=1 THEN 2620 

AND Y=225 THEN 1 



'0-1 THEN 1690 
1680 IF K>12 AND X<23 THEN IF > 
Y>217 THEN CALL DELSPRITEIfUO): 
HAR(3,29,1 

ALL HCHAR<4,30,143): 
1) :: GOTO 2110 
1690 CALL I10TION(#10,5,< 
1700 GOTO 1770 
1710 CALL MOTIONl»10,-Y1 
1720 CALL SQUND(-50,-5,< 
1730 IF XIO-4 THEN 1 
1740 FOR 1=59 TO 60 
■1750 CALL F'ATTERNIKK 
1760 NEXT I :: BOTO I 
1770 FOR 1=139 TO 14< 
17B0 CALL PATTERNlttlC 
1790 NEXT I 
IBOO GOTO 1500 

1810 '. NUAGES 

1B20 FOR A=2 TO 9 

1830 IF RAOO THEN I860 

1B40 DISPLAY AT16, 1 JSIZE (17) BEEF: ' 



1B50 DISPLAY AT (B, 1 1SIZE f 1 



i,240, ■ 



i*210l- 



I860 CALL SPRITE<ltA,92, 1 

40,-V.O) 

1B70 FOR 1=1 TO 40 :: NE 

1S80 CALL COINCIALL.C):: 

LL DELSFRITE(KA) : : GOTO I860 

1B90 NEXT A 

1900 RETURN 

1910 ■ EXPLOSION 

1920 CALL MQTI0N(ttlO,0,O) 

1930 CALL S0UND(600,-B,0, 11C 

00,30) 

1940 CALL CDLORIttlO, 16) 

1950 CALL POSITIDN(t»10,X,Y) 

1960 CALL SPRITE<»1,44, 10, X. 

1970 FOR 1=1 TO 3O0 :: NEXT 

1980 CALL LOCATEIttlO, 160,26) 

PRITE(ttl) 

1990 CA=CA-H :: CALL SDUND<200, 120,0) 1 : 

CALL HCHARI24, 10-CA.32) 

2000 IF IPD=1 THEN AA-AA-M :: CALL SOUND 

(300, 150,2) : : CALL HCHAR (24, 24+AA, 127) : : 

IPO-0 :: IF AA=3 AND RAOO THEN 2790 
2010 IF AA-3 THEN 2030 
2O20 IF CAOS THEN 1300 
2030 FOR 1=1 TO 200 :: NEXT I 
2040 I--PLUS D'HELICOPTERE — 
205O DISPLAY AT(10,1)BEEP ERASE ALL:"PRE 
NEZ DES COURS DE PILOTAGE" 
2060 DISPLAY ATU6.1):" ENCORE UN ESSA 



: C--1 THEN CA 



CALL DELS 



2 logiciels f rancais 
en basic etendu pour Tl 99 



LUnRR 
LflnDER 

2 




Lunar Lander 2, jeu de pilotage spatial 
sur cassette ou disquette* reference par 
les plus grands revendeurs de logiciels Tl. 

De I'habilete et des reflexes 

vous seront necessaires pour tranchir 

les 25 etapes du jeu. 

Un jeu que vous aurez plaisir a pousser 

chaque fois un peu plus loin. 

Des mois de jeu assures. 

Synthetiseur de voix optionnel. 

Preseniation en haute resolution. 



e chargement acceler 



LUHflR 
JUIT1PER 



*^*m 



<-" *■*- 



Lunar Jumper, du mesne auteur, 

un parcours d'obstacles en moto 

extraordinaire sur la lune 

(sur cassette ou disquette*) 

Imaginez-vous chevauchant votre moto, 

au milieu des crateres et des meteorites 

s'ecrasant devant vous, tout en ayant 

toujours un ceil sur votre reserve 

de carburant. Aux limites des possibilites 

du basic etendu : des paysages defilant 

sur 4 plans (scrolling) Synthetiseur 

de voix optionnel. 

Une musique exceptionnelie jouee 

sur 3 voies ; le 5° concerto 

brandebourgeois de J.S. Bach ! 

LES CHEQUES DES 5 PREMIERS ACHETEURS SERONT RENDUS 



r Lander 2 {100 F) 
r Jumper (120 F) 
our 200 F 



nScessitan 



n Software (les mandats el 



^psilon Software 

72. RUE DES IANOES - 78400 CHATOU 



CALL OELSPKITE'ALLJi 



2090 TT-0 : : IPO=0 
=0 : : CALL CLEAR : 
: GOTO 6B0 
2100 • TABLEAU 2 

: lo call sound (500, 26:\:: 



40 GQSUB 2B70 

50 CALL SPRITE til I, 128, 15, 145,: 

60 IF AA>=1 THEN DISPLAY AT(21. 

ulvant" :: GOTO 2180 

70 DISPLAY AT (21,20) :"grimp»" 

BO CALL JDYST<1,X1,Y1) 

90 CALL COINCIALL.C):: IF P— 1 



2220 IF Y-XJ196 AND Y-X<204 THEN : 
2230 IF YM66 AND Y<250 THEN IF Yi 
245 AND Y*X*5/7<251 THEN 2350 
2240 IF Y>250 OR X>175 THEN 2350 
2250 CALL COINCIALL.C):! IF C— 1 _ 



■i,00 


Dl-01 


•85 












2690 


CALL 


Slii-TIP 


1- 










2700 


NEXT 














2710 




























2720 


IPO-I 






















■,T 


THEN 






2740 


FOR I 


-S TO 








)£LSPR 


: NEXT A 


1 V-V 


1-3 


II 


TT-TT 


+2 


I 



': 22B A 



50 

2260 IF X1O0 OR ¥100 THEN 2300 

2270 CALL MOTION <»1 1,0,0) 

22B0 FOR I-12S TO 135 :: CALL PATTERNH 

1,1):: NEXT I 

2290 GOTO 2180 

2300 CALL M0TI0NIItll,-Yl*2,Xl) 

2310 FOR 1=36 TO 43 :: CALL PATTERNmil 

I):: NEXT I 

2320 CALL P0SITION((»H,X,Y) 

ND Y<236 THEN IF X :64 THEN 

2330 GOTO 21BO 

2340 ! CHUTE 

2350 CALL MOTIONt HI 1,16,0) 

2360 FOR 1-1 TO 20 ;: CALL SOUND 1-200, -B 

, O, 222, 30, 222, 30, 200* 1,30) 

2370 CALL PDSITI0N(»11,X,Y> 

23B0 IF X>200 THEN CALL DELSPRITE (#11 ) ! : 

GDTO 24O0 
2390 NEXT I 

2400 AA-AA-H :: CALL SOUND (300. 130,2) : : 
CALL HCHAR(24,25+AA, 127) 
2410 IF AA03 THEN 2140 
2420 IF RAOO THEN 27'!0 
2430 DISPLAY AT(21,IB) 
2440 FDR 1=1 TO 200 :: NEXT I 
24S0 DISPLAY AT (10,1) BEEP ERASE ALL: "VOU 
S MANQUE? D'EXERCICE": :::::" ENCORE 

UN ESSAI OxN" 
2460 CALL KEY(O.K,S):: IF S=0 THEN 2460 
2470 IF K-79 OR K-lll THEN 24B0 ELSE END 
2480 TT=0 :: RA'O :: IPO-0 :: CA-0 i: AA 
-0 :: CALL CLEAR :: CALL DELSPRITE (ALL) : 
: GOTO 6S0 

2490 ! — ASCENSION REUSS1E — 
2500 CALL L0CATE(»11,4B,228) 
2510 CALL SOUND! 100,2000,2) 
2520 CALL 50UND( 100, 3000, 2) 
2530 CALL L0CATE(#11,32,22B) 
2540 CALL SOUND (200, 4000,2) 
2550 CALL DELSPRITE (#11) 
2560 CALL SPRITE(#10, 140, 16, 17,225) 
2570 CALL HCHAR!3,29,32,2) 
25B0 CALL HCHARI4, 29, 32,2) 

2590 FOR 1=1 TO 3 :l CALL HCHAR(5+1,30,3 
2):: CALL SDUND(-BO, 400*1 , 1 1 ): : NEXT I 
2600 DISPLAY AT (21, 18) 
2610 IP0=1 :: GOTO 1500 
2620 !— nUSIOAJE DE REUSSITE- 
2630 RESTORE 230 
2640 FOR 1=1 TO 10 
2650 READ F1.D1 
2660 F2-F1*3 



20 

2750 DISPLAY AT (6, 1 ) SIZE ( 171 
2760 DISPLAY AT (B, 1 ) SIZE t 14) 
2770 GOTO 1SO0 

27BO ! FIN DE JEU 

2790 FOR 1=1 TO 200 :: NEXT I 
2800 IF RA=3 AND CA<-2 THEN 2B40 
2B10 DISPLAY AT(5,1)BEEP ERASE ALL:" 
MISSION EFFECTUEE " : : "CRASH DE: " 
i" HELICOPTERE S ": :" MORT DE:"1AA-Rl 

ALPINISTE S " 
2B20 DISPLAY ATm.Ill" VOUS POUVEZ I 
UX FAIRE " 
2B30 GOTO 2060 
2B40 DISPLAY ATI* 
□US ETES UN CHAMf 
EZ CASSE OUE": :' 
2850 GOTO 2060 

2B60 i ATTENTE- 

2870 DISPLAY ATC 

28B0 DISPLAY ATI; 

les nuages" 
2890 CALL KEY (lit 
O 

2900 DISPLAY AT<: 
2910 DISPLAY ATC 
2920 RETURN 

2930 ' ECRAN Tl 

2940 f 



, 11BEEP ERASE ALL: "=- V 

ION --": :" VG-US N'AV 

";CAi "HELICOPTERE B" 



J 



<lt 



CALL COLOR (1,2, 1 



IERASE ALL:"SOS HELIC 



2970 FOR 1=1 TO 10 

2960 CALL GCHAR ( 1, 2+1 , CAR) 

2990 XV=SGN (RND-. 5) »INT (RND*20) +' 

SGN(RND-. 5> »INT (RND*20) *9 

3000 CALL SPRITE(#I,CAR,2+I,B0, 1 



3010 RANDOMIZE 

3020 NEXT I 

3030 CALL DELSPRITE<*4> 

3040 FDR 1 = 1 TO 100 : : Nl 

305O FOR 1=1 TO 3 

3060 CALL SCUND(100,1500 

3070 CALL MOTI0N(#I,O,O) 

3OB0 CALL LUCArE(m,80-A. 

=B THEN A=0 :: GOTO 3100 

3090 A=B 

3100 NEXT I 

3110 A=0 



CALL SOUND ISO. 



3120 



i to ; 



3130 CALL SOUNDdOO, 1301 

3140 CALL M0TI0N((H,0,O: 

3150 CALL LOCATE1#I,H2+A,70+2«B 

3160 A=A+10 :: B=B+B :: NEXT I 

3170 FOR I-B TO 10 

31B0 CALL SOUNDdOO, ISOO-lOOoI. 5: 

3190 CALL M0TI0N<ltI,O,O) 

3200 CALL LOCATEIttI, 132-C,70+2»B 

3210 C-C+10 



3220 * 



B,C-( 



3230 FOR A-l TO 10 
3240 CALL COLOR("A.I) 
3250 CALL SOUND ( 100, 400, 1 



Suite page 18 



FOURMILIERE 



Avec FOURMILIERE, vous allez redecouvrir les joies 
du PACMAN. Mais attention: le scenario est ici, legere- 
ment different. Des etudes poussees ont permis de de- 
terminer le plat prefere du Glouton: il s'agit des oeufs 
de fourmi. Nous allons done le retrouver dans une four- 
miliere devorant a belles dents les oeufs non eclos. 
Imaginez la panique-.. Les fourmis dans raffollement, 
en devorent leurs propres oeufs et elles n'hesiteront 
pas a capturer I'intru s'il leur tombe entre les antennes. 

Stephane CHEVRY 

Mode d'emploi: 

Pour vous deplacer ulilisez les touches suivantes: 
A pour monter, Z pour descendre, *- pour aller a gauche et — * pour 
aller a droite. (Clavier franqais: Q pour monler, W pour descendre, — 
pout aller a gauche el — pour aller a drone). 

ESC permel d'interrompre le jeu, une autre touche de le reprendre. 
Pour changer ces touches, modifier les lignes 227 a 235 du pro- 
gramme. 

Le programme est sauve par; BSAVE FOURMILIERE. AS 804. LS 
7FF3. 

Lancement par BRUN FOURMILIERE. Ce programme est ecril en 
assembleur LISA. Si vous ne possedez pas cet assembieur. vous 
pouvez entrer directement !es codes en hexadecimal. Pour cela. 
taper CALL-151, puis taper les lignes en hexadecimal selon la pro- 
cedure suivante: 

800:00 07 0A A9 FF 85 4D RETURN et ainsi de suite, jusqu'a la 
ligne FF8. Vous pouvez ensuite lancer voire programme par BRUN 
FOURMILIERE. 
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PARLEZ-MOI FRANCAIS! 

Enfin de vrais logiciels d'aventure pour APPLE 11+ , lie et He, 
oil I'on peut dialoguer avec son ordinateur, en frangais et 
avec de vraies phrases. 
FROGGY SOFTWARE invente /'analyse de syntaxe: Cocorico! 



PARANOIAK 




Comment ne pas friser la tolie galopanle quand les proble- 
mes les plus noirs vous submergent comme une tonne 
dordures? Jugez plutot de ce qu'on vous a colle sur les 
epaules: complexe d'interiorite. complete d'Oedipe, perse- 
cution, superstition, timidite, etc... Le genre de handicaps 
qui couperaient les gambettes a la jument d Yves Saint 
Martin. 

Pour vous debarasser de ce tonneau de problemes. vous 
devrez errer dans la ville et rencontrer ceux qui sont sus- 
ceptibles de vous tirer de ce bourbier L'ennui, e'est que 
vous n'avez pas un Kopek en poche et que rien nest 
donne dans le coin! 

Au hazard de vos deambulations. vos coetticients de sante. 
de moral et d'argent fluctueront. II faudra vous menager 
pour eviter la deprime totale ou I infarctus. 
Ce jeu possede une analyse de syntaxe qui vous permet 
de discuter librement avec voire APPLE. Vous pourrez 
done exhiber vos talents de beau-parleur ou d'ecrivain pour 
atteindre le but ultime: MENS SANA IN CORPORE SANO 
PARANOIAK est un jeu concu et ecrit en francais. Gra- 
phisme haute-resolution couieur et humour garantis, Depe- 
chez-vous avanl que les americains ne nous le piratent. 
Damned!! 



Ca vous gratouille ou ga vous chatouille?.. Difficile a drre. 
mais le virus qui s'est abattu sur la Terre est plus perni- 
cieux que le poil a gratter. Cette situation ayant atteint le 
paroxysme de la demangeaison, vous etes charge d y trou- 
ver un rem6de. Vous sauterez done dans voire vaisseau 
spatial pour faire la navette entre quatre planetes comple- 
tement loufoques. 

Des belles extra-terrestres de PARADISIA aux monstres de 
FABULA vous vivrez des aventures a cote desqueiies 
I'Odyssee d'Ulysse vous apparaitra comme du pipi de cha' 
Mais ces bonds dans I'Espace ne seraient rien s ils 
n'etaient accompagnes de bonds dans le temps! Ne vous 
etonnez done pas si vous vous retrouvez brusquemenl en 
pieine guerre du pacifique ou dans une pyramide de 
Ramses II. 

Ce jeu d'aventure comporte des tableaux animes. Votre 
perspicacite devra done etre doublee dune bonne dost? 
dadresse pour parvenir a enrayer ('epidemic 



WLM 



Vous pouvez trouver ces disquettes chez votre revendeur habituel. ou les 
commander directement chez SHIFT EDITIONS 27 rue du Gal Foy, 75008 
PARIS, en joignant un cheque de 350 francs, par disquette. 
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iR EQU *FB40 

IGR EQU «F3E2 

IASC EOU »F8r I 

LDA £*FF 
STA MODE 
LOA £0 
STA MSA 
STA MSX 
STA SCORA 
STA SCORX 
STA SC0RS 
STA SCOR 
JSR HOME 
JSR HGR 
JSR AFFICH 
LOA £30 



STA ) 

LDA I 



JRR 


DEBUT 


1 OA 


■»=F 


SIA 




1 DA 


£3 


STA 


RES 


1 IM 


£0 


SIA 


SCORX 


STA 


SCORA 


UIA 


SCOP 


LDX 


£*B8 



JSR AFFICH 
LOX £*F 
LOA £*1C 



LOA £3 

suite page 16 



la page pedagogique 



la page pedago~ 



La page education reprend avec un dossier de I'ecole Ferdinand Brunot de St DIE, ou Claude PICARD, instituteur, nous livre ses 
impressions sur rinformatique au service des handicapes moteurs. II a de plus, trouve un excellent moyen pour pallier son manque 
de budget: la creation et la commercialisation d'une revue de programmes. Un concurrent a HEBDOGICIEL ? En quelque sorte! Mais 
tant pis, nous vous donnons tout de meme les coordonnees pour acheter cette excellente revue "50 programmes pour i'enseignement 
et la famiNe" dont les programmes s'adressent aux enseignants des classes de niveaux divers, allant du CE2 a la 5eme du college, 
mais aussi a tous les parents desireux d'etendre le champ d'utilisation de leur TO 7 familial. 

Claude PICARD nous a gentiment autorise a publier deux des programmes de sa revue: Additrou et Volume. Vous pouvez acheter 
cette revue en rentrant en contact avec Claude PICARD, Ecole Ferdinand Brunot, 22 rue des Folmards 88100 SAINT DIE ou passer 
par HEBDOGICIEL en joignant un cheque de 50 francs. Les enseignants. et seulement les enseignants. peuvent nous demander un 
exemplaire gratuit de cet ouvrage, en formulant leur demande sur un papier a entete de leur etablissement 



Je suis enseignanl en classe 
d'handicapes moteurs. Le pro- 
blems de la motivation scolaire 
s'est pose pour deux eleves qui 
atteignaient la limite d'age (17 
ans) car I'integration en cycle 
secondare n'etait pas envisa- 
geable. J'ai demande a r Asso- 
ciation des Paralyses de France, 
une dotation en materiel micro- 
informatique et courant mai 
1983, nous avons recu un TO 7. 
D'emblee, les Aleves qui soni au 
nombre de 7 se sont mis a tapo- 
ter les petits programmes du 
Manuel d'initiation et a tester les 
differentes instructions. Ceci est 
important car le TO 7 n'etant 
pas accompagne des I'abord 
dune cascade de logiciels. il fal- 
lait faire par soi-meme el ne pas 
se contenter de consommer. 
Cela je pense, condilionne !a 
demarche, chaque trouvaille 
etant extremement valorisante 
pour I'eleve. 



Une masse de petits program- 
mes graphiques et musicaux a 
vu le jour. I'enfant maflrise en 2 
mois une trentaine destructions 
basic. 

A partir de la rentree 83 84. 
nous avons recopie des pro- 
grammes plus elabores prove- 
nanl de livres et de revues. 
Chacun a immediatement en- 
trevu les extraord in aires possibi- 
lites de la micro-informalique. 
D&s ce moment, le pari etait 
gagne. La phase des recopies 
n'est pas negligeable, elle per- 
met outre la maitrise du clavier, 
1'impregnation synlaxique. 
Les phrases bourrees de signes 
de ponctuation com me 

PR1NT6RS (0);".";6RS ; ne peu- 
vent s'acquerir en douceur que 
si elles soni visualisees en pro- 
(ondeur. Cette approche s'est 
(aile globalement et en toute li- 
berie . sans qu'il soil necessaire 
de plaquer sur ces activites un 



"cours" de basic. Vers Novem- 
bre 83. un systeme de liches a 
ete mis au point. Ces fiches ont 
pour but, I'etude systematique 
du langage Basic; elles compor- 
tent entre autres une rubrique 
mise en oeuvre, c'est a dire un 
petit programme qui permet de 
visualiser I'ettet de telle ou telle 
instruction et une rubrique re- 
cherche" qui invite I'eleve a ela- 
borer un programme tres court 
d'une dizaine de lignes, qu'il 
tape ensuite, corrige, reecrit. re- 
tape etc... et qu'il enrichil a vo- 
lonte. 

Enrichissement...Le mot ete. 
A une epoque ou le redactionnel 
lasse et I'enfant et I'enseignant, 
la micro-informatique enrichil. 
En Janvier 1984. le tail de 
n'avoir qu une machine s'est (ait 
sentir, Le projet de conception 
d'une revue vendable est done 
ne parallelement a I'E.A.O. 
L'E.A.O. pour les classes d'han- 



dicapes, c'est la condition sine 
qua non, de revaluation. 
Comment verifier qu'un enfant 
sourd et quasi muet, qui a de 
gros problemes moteurs et dont 
lecriture est illisible. a compris 
une notion. 

Oevant le micro, les problemes 
moteurs sont presques nuls, si 
Intervention de loperateur est 
suffisammenl reduite. Aligner 
des signes lisibles avec un 
crayon suppose une bonne 
tenue de I'outil, la capacite d'ali- 
gner ces signes de gauche a 
droile et ce, en ligne, ce qui 
n'est pas evident. 
La machine elle, n'a besoin que 
dune pression de touche ou 
d'une direction de manette. pour 
etre accessible. Je ne reviendrai 
pas sur les vertus de I'EAO, er- 
reur non frustrante, evaluation 
immediate dune reponse, possi- 
bility pour I'enseignant de sentir 
jusqu'ou la notion est assimilee. 



A chaque legon classique, j'ai 
associe un programme de rein- 
vestissement des connaissan- 
ces. Les eleves en concoivenl la 
partie "donnees'. ils elaborent 
partiellement la presentation en 
donnant leur avis: "II faudrait 
que le litre soil pousse par un 
petit bonhomme" "L'exemple 
nest pas assez voyant, il taut 
changer la couleur"etc... 
Mon role es! alors de batir un al- 
gorithms suffisammenl simple 
pour que les eleves puissent en 
comprendre I'articulation. Sons 
nombres de programmes pre- 
sentes dans le n° 1 de notre 
revue sont issus de cela. Tant 
que Data. Read n'etait pas mai- 
trise il fallait conslruire autant de 
sous-programmes que de don- 
nees. Ces! seulemenl plus tard 
que la reduction esl possible. Je 
crois que Important dans ce do- 
maine c'est de produire , de ne 
pas atlendre que d'aulres nous 



apportent leur travail, meme si 

c'est imparfail. L'immobilisme 

esl le mal du siecle. 

Nos projets, ils sont de 5 ordres: 

-Vendre suffisamment de revues 
pour equiper notre classe de 
systeme DOS ce qui n'est pas 
une mince affaire vu les credits 
de fonctionnement qui nous 
sont alloues. 

-Echanger des ideas, des pro- 
grammes avec d'aulres clas- 
ses, nouvelle forme de corres- 
pondence scolaire. 

-Realiser des jeux sophistiques 
car le jeu est peu! etre la seule 
maniere d'etre actif 

-Acquehr un M05 avec touches 
norm ales car les eleves ont des 
problemes avec le clavier a 
membrane (les myopathes sur- 
tout, qui sont d'une extreme fai- 
blesse). 

-Fonder un club THOMSON a 
SAINT DIE. 

Claude PICARD 



Volume 



T07 



Apres un exemple detaille, le programme fait dessiner I'un des dix volumes (quadrilles et en 
perspective) qu'il contient. II pose cinq questions successives: longueur, profondeur, hauteur, cal- 
cul (LxPx H), et resultat final en unites de volume. 




1 SCREEN 2,e..@ XLS 'CLEAR 1000 

2 PRINr'VOLUMES" -PR1HT PRINT"Vott* allez voir- aPParaitre i 
us devrez trouve r i " i PR1NT"1-Ie'jr LonSueur" PR INI "2-leu.i 
"3-ltw* h*ufc«ur"'PRIMT"4-l« emeu I du v0tunw"*PRIMT"3-l* -. 

3 LOCnTE0,2e'INPUT"Voul«-vO«a UM exwPle CO/N) ";R*>IF RS="0" THEN4 ELSE9 
■» CLS=X=3'Y=24'E=12:L=4=P=3=H=4=G03UB 1000* CGLCip 3 ' LOCATE 0.12 PPIHT"La lo 
nflueur vnut 4 n *PRiHT"L* Profondeur v*«t 3">PR1NT"U h*ut«vr «*ut > 4"'PPIN 
T"Le ealcul dv volumt ■=<=<■ obttnu «n wultlPlUnt l p*r P l>«r H"'PRINT" 
ici ' 4*3*4" 

5 PRINT"Le volume vaut done ict ' 4*3*4 = 4? u," PRINT"'.! 

est I'unite de volume , icl un Petit Pave" 

9 LOCATE 0,23- INPUT "fi vous ' 0')l > " ■ P* IF LEFT*( R«, 1 )*"0" THEN CLS ! GOTO 10 
ELSE CLS 'END 

10 T=n GOSUB 20000:LOCmTE 0.23 FPIHTSCORE i "tTJ" /S8" *X-S'Y-3S E«U<L«?'P 
=4 1 H=2 ' GOSUB 19000 L*="?' , 'P*="4"HS= ,, 2"'F*-"r*4*2" G«="5e" CQiUB 1090 

20 GOSUB 20S00, L=10'P=5 H=3 G03UB 10900 i L*=" 10" -P*="15" •H*="3" ■■ F*=" 10*5*3" G 

*="150"^ GOSUB 1000 

30 GOSUB 20000 :L=4'P=3'H=8' GOSUB 10090 < L*-"4" ' PB-"3" ■ H*="8" ■■ F*="4*3*S" ; G5=" 

96":G03U8 1000 

40 GOSUB 20000'L=2'P=4'H=10 GDSU9 1B000,L»="2" ,R*="4" 'H*=" 10" F*="2*4*10" G 

*="80" "GOSUB 1000 

59 GOSUB 20080 'L=4:P=2H= 11 GOSUB 10900 • Ut-"4" ■p*="2" ;HS=" 1 1" FS="4*2*1 1" i G 
*="86"i GOSUB 1009 

60 GOSUB 20000L=5P-5 H=1'G0SUB 10090' L*="5" <P«="5" HS=" 1" -F*=" 5*5*1" >G*=" 
25" 'GOSUB 1000 

70 GOSUB 20000 'L=7'P=3'H=3' GOSUB 10090'L*="7" •P%="3" •H«="3" 'F*="7*3*3" G*=" 

63" 'GOSUB 1800 

80 GOSUB 2000B'L=2'P=2H=1Z'GOSUB 10000 i L*="2" - P*«"2" ' HS=" 12" F*="2*2*12" i G 

*="48"' GOSUB 1000 

90 GOSUB 20008 ' L-9 ' P=4 > H=2 ' GOSUB 10090 ' L*="9" ■- P«="4" ■ HS="2" FS="?*4*2" G*=" 

72" 'GOSUB 1000 

109 GOSUB 20000 'L=1'P=4'H=7' GOSUB 10909 ' LS=" 1 "' P*="4" i H*="7" i F*=" 1*4*7" i GS= 

"29" 'GOSUB 1000 

150 GOSUB 20000'X-8'Y'=6e i E*4'L''72'P-10'H-30'COLOR 1 ' GDSUB 10900 r-OLOP 5 ' GOS 

UB 10000'COLOR 0GOSU8 10009 PLRV"R2T3L1602DDS1S0D0D05IS0D0" 'LO' IE 19,23,0 

COLOR 2,0'PRINT"BU REV01R"'END 
1008 LOCRTE 17, 13,0'COLOR 0,5 PR INT "LONGUEUR " ; = COLOR 2,9 INPUT"" ",S* : IF 

S«>LI THEN GOSUB 50009 "GOTO 1909 ELSE GOSUP 5 1090 'GOTO 1100 
1100 LOCATE 17,14'CQLOR 0,5 PR I NT "PROFONDEUR " ; ■ COLOR 2,0'INPUT" ",T»'IF T 
•<>P» THEN GOSUB 50008'GOTO 1190 ELSE GOSUB 51008'GOTO 1289 

1200 LOCATE 17,15'COLOR 0, 5 ■ PRINT'HRUTEUR ""COLOR 2.0INPUT" ",U*'IF U 
*OH* THEN GOSUB 50900 ' GOTQ 1200 ELSE GOSUB 51000'GOTD 1300 

1300 LOCATE 1?,16"C0L0P 9, 5 i PR1NT"CALCUL ", 'COLOR 2-OINPUT" ",V*"IF V 
*<>F* THEN GOSUB 50000 ' GOTO 1300 ELSE GOSUS 5 1000 'GOTO 1409 

1400 LOCATE 17-17COL0R 9,5 PRINT"RE3ULTPiT "/'COLOR 2,0'IHPUT" ",HS=IF U 
*<>G» THEN GOSUB 50000"GOTO 1400 ELSE GOSUB 51000'RETURN 

10000 FOR 1=0 TO H'LINECX,Y*I*EWX+L*E. Y+I*E>'LINE-(K+L*E+E--2*P, r-<-I*E-E''2* 
P)HEXT I 

10010 FOR 1=0 TO L'LIHE<X+I*E,Y+H*EW X + I*E- V ) = LIHE-vX+I*E+E- 2*P ■ '-E'2*F ) ' N 
EXT I 

10020 FOR 1 = 1 TO P L1NE(X+E''2*1,Y-E.'2*I )-C X+L*E*E^2*I , Y-E '2* I VHHE-i: X+LTE + 
E'2*I,Y+H*E-E'2*I J 'NEXT I 
10030 RETURN 

20000 CONSOLE 0,23'CLS'CONSOLE 0,24'RETURN 

30000 LOCATE 0,20'COLOR 1 ' PRINT "ERREUR" ' PLBY'Rt T3L24n?P0REMlPL 1 SSIMISIMIPSI 
T1IL48D0D0L18REriID0L72D0"'L0CfiTE 9,20'COLOR 0.BPR1NT" " T=T-l COLOR 3, 

0'LOCHTE 0,23'PR1NT"SCORE ' ";Tj" ^50"'COLDR 2'RETURN 

51000 LOCATE 0,20'COLOR 2 i PSJKT'BIEN" : PLRY 11 A2T303L16DOREDOPEC0FBMIFRri I50sris 
0"'LOCATE 0,20'CDLOR 0.0'PRINT" "> T=T+1 ' COLOR 3.0'LOCRTE 0.23 PRINT"SCOR 

E i "jTj" /30"'COLOR 2'RETURN 



Additrou 



Dix additions dans lesquelles cinq chiffres ont ete remplaces par des lettres. Dans un premier 
temps, on choisit la lettre puis on propose une valeur pour cette lettre, ceci jusqu'au lerme de 
I'addition en cours. 




T07 

is un prem 
i'au lerme 



10 U-S'SCREEN 2,0,0'PRINT-ADDITIONS A TROUS" 'PRINT 'PRINT "PRIHT"VOUa devez r 
e 1 ™?5 r l "- '■ ? ^'"^^" -PRINT-Preaentes d*ns des additions, Par" 

11 PRINT des ehi ffres" "PRINT: PR INT" Vous rhr.isi;^^ ,J ■ ,fof d" ' PRINT" la lettre 
,% '^Tli^V.J"' 1 '' " ous donr, e7 le chiffr* loi convient" 

2 HS= RiraT9L4eD0L3SREbL72MIbL43L.0L24REbT4mbT3L?28O#" PUW H**HS 

l' ; l-'-'l'll I'Kllll i.,i..iLU!v ■" -V[-^i_, ,..,■,-„■ . i: „, v ,-,,,,,,, !„ ., fj , nM ,-, r ,„.. ,,,,,,,-■ ■,-.,, 
i le nunero de votre choivc "CLEftR 538 

14 LOCATE 0.16" INPUT"* i a 10... ",iMF 2< 1 OR Z--10 THEN 14 

15 ON 2 GOSUB 20008, 21008, 22000 , S'JQfjD ,\4<;h"';"' ■■■Minn . ;-',irujii , -■ .'i>j.j . iyweti . ^Wi- 
ll GOSUB 20LOCATE 0,23 ' INPUT "Un« autre operation (IM4) ":R* IF LEFTS' Pi, 1 > 
= "0" THEN CLS'GOTO 13 ELSE PLAY "P[-Kt lm[ni,ii ■ tllD 

20 COLOR 2 CLS 'LOCATE 4,4'PRINT H*l iCOLOR 5 PRINT"R" 

30 COLOR 2'LOCATE 2,5'PRINT X*; COLOR 5PRINT"B";-'C0L0P 2 PRINT V* 

43 LOCATE 4,G"PRINT" "'LOCATE 4 , 7 " COLOR 5 ' PRINT "ED ■ LOLUP 2'PRINT US, 

COLOR 5'PRINT"C"; .COLOR 2'PRINT S* 
58 IF Pl = l AND Bl = l ANL Cl = l FIND Dl*1 AND E 1 ■= 1 THEN 1009 
60 BOXFC0,10>-C39,16)" ",9'COLOR 2'LOCATE 2, IB' INPHT'OneUe l^t-tre "iP* 
70 IF R*="R" AND HlOl THEN R1 = 1G0T0 S00 
60 IF R*«"B" AND BlOl THEN 81 = 1 GOTO 550 
93 IF R*="C" AND ClOl THEN C1-1'G0T0 600 
109 IF Rf="D" AND DIOl THEN 01 = 1 'GOTO 700 
lie IF R*="E" AND ElOl THEN E1=1'G0T0 898 ELSE 69 
580 LOCATE 2, 12" INPUT"Ou.eUe Proposition Poyr A "."S* 
510 IF S*=A* THEN GOSUB 39839 ELSE GOSUB 4300O"GOTO 5QO 
520 LOCATE 9,4= COLOR 2'PP1NT AS ' GOTO 58 
•Dfiii' LOCATE 2,l2'INPUT"r.,,elU Proposition Pour B "jS* 
560 IF SS=BS THEN GOSUB :?00iji:' tl.'^fc i^OSUB 40090 ■ GOTO 550 
570 LOCATE 6,5=C0L0R 2'PPINT BSGOTO 59 

609 LOCATE Z, 12 ' INFUT"Guelle Proposition Pour C " i%% 

610 IF SS=CS THEN GOSUB -390EI0 EL3E GOSUB 48088 GOTO s.yfi 
628 LOCATE 6, 7 -COLOR 2'PRINT CI'GOTO 50 

788 LOCATE 2, t2'INPUT"0'jelle Proposition Pour D "jS* 

710 IF SS=DS THEN GOSUB 30880 ELSE GO't-UE 40C00 GOTO 786 

720 LOCATE 5,7'COLOP 2"PRINT DS ' GOTO 50 

B00 LOCATE 2. 12' INPUT"Ouetle Proposition Pour E "iSI 

:?18 IF S*=E» THEN GOSUB 38898 ELSE GOSUB 48080 GOTO B80 

»28 LOCATE 4.7 COLOR 2'PPINT ES'GOTO 50 

1030 RETURN 

C*="0"'[>*="9"'ES="r' 

RETURN 

CI="5"DI="B"'ES="3" 

RETURN 

Ct="0"DI="9"'ES="l" 

RETURN 

CS="8"D«="0"'ES'="2" 

RETURN 

CS="2"'DS="2"'ES="2" 

RETURN 

CS="3" DS="3" "ES="3" 

RETURN 

CI="'2 , -'D»»"2"'E!*"9" US-"912.0" 

RETURN 

CS="5"'D*="7"'ES="4" 

RETURN 

CS="0" DS="4" =ES="2" 

PET URN 

CS="2"'D*="1" ES="1" 
PLAY"RE"'PETURN 

30000 LOCATE 2,23'PPINT"BRf(V0" PLRY"AlT903L18LRT3S0ttT5FrlBT5MlbL4SFAII"=L0CAT 
E 2,23'COLOR B'PRIHT" "'COLOR 2'RETURN 

48090 LOCATE 2,23'COLOP 1 PRINT"ERREUR" ' PLHY"T5A2L1202D0DOPELALHLP" 'LOCATE 
2,23'COLOR B-PRIHT" "'COLOR 2'RETUPN 



20800 AS=" 
2. ">OS="0"-PLRY"RE" 
21000 AS="9"'BS="9" 
3.":0I="2".PLAY"RE" 
22303 A*="9"BS="5" 
4. " 'QS="0" "PLRY"PE" 
23383 flS="5"'B*="4" 
3. " 'Q*="0" "PLAY'RE" 
24000 A*-"9""B*="2" 
2,*»a»*"l" "PLRY"RE" 
25030 Ht="4">BS="9" 
2. " '0S="7"-PLAY ,, RE" 
26000 A*="7" "8*="4" 
6."'Gl*-"6"'PLAY"RE" 
27383 AS="8" B»="8" 
5."TJ*=""2"'PUAY"RE" 
■1",BS="S"' 
''PLRY"RE" 



U*=" 27.' 



78.2" 



25.7"'X«="* 17 
9?.9"'X»="+ 12"' 



'.71" US=" 
'.25"US=" 



2B880 AS=' 
5."'CIS-"9' 
29088 AS=' 



= "182.4" 



•"446.5" 
="236.9" 



... + 14 ., 



S=".93" 



Suite tie la page 14 



> BOUGE 
1 INSECT 
I BOUGE 
• INIT2 



DEMO LDA EO 



0EM01 LDA ( 



INSECT LDA N1U 



INIT3 LDX ( 



JSR SCRN 
CMP £0 
BEQ T<1 
CMP £7 
BEQ T<1 
JMP OEP? 
LDA £4 
STA DIR 
JMP OEP' 



293 AFFICH L 



301 AFF1C2 I 



303 AFFIC1 



STROUT 


STA 


CHAR 


317 




STY 


CHARM 


31B 




LDY 


£0 


319 




STY 




320 


STR0U1 


LDY 




321. 




LDA 


(CHAR),Y 


322 




BEO 


STR0U2 


323 




JSR 


COUT 


324 




INC 




323 | 




BNE 


STR0U1 


326 AF 


STR0U2 


RTS 




327 

32B 


VERP 


LDY 


my 


32? 


VERP2 


LDA 




330 




CMP 


XP 


331 




BEQ 


VERP1 


332 


VERP 3 


DEY 




333 




BPL 


VERP2 


334 



LDA SYM1 ,X 



VERP1 LOA !■ 



II LDX I 

205 FIN2 TXA 



207 FIN3 DEY 



I LDA MODE 
BNE FINP 
JMP DEBUTT 
INC RES 
LDA £20 
STA A 



22* T0UCH6 



BNE F1N1 
LDA £0 
LDX £5 
JSR WAIT 



DEC VIT 
DEC VIT 
JMP INIT> 

LDA VIT 
JSR WAIT 
LDA CL 
CMP £*9B 
BEO TOUCHE 
CMP £*C1 



CMP 1 



1 TA 



CMP £7 
BNE AFFS 
INC NBPT 



246 


JMP DEP 


249 TA1 


LDA £1 


2S0 


STA DIR 


251 


JMP DEP 



LDY XP 
JSR SCRN 
CMP £0 
BEQ TZ1 
CMP £7 
BEO TZ1 
JMP DEP' 
LDA £3 
STA DIR 
JMP DEP? 

LDY XP 



386 


AFF'S CPY 


E24 






BCC 


AFF' 


i8B 




RTS 




389 


AFF'l 


PHA 




391 




JSR 


BASC 


392 




TXA 




393 




CLC 




394 




ADC 


BASL 


393 




STA 


BASL 


396 




LDA 




397 




CLC 




398 






HPAG 


399 




STA 


BASH 



INC BASH 
INC BASH 
INC BASH 



8E0 DEPZ 
BNE DEP< 
LDY YP 



430 OEPA' STY ■> 



JSR SCRN 
CMP £7 
BEU DtPl 
CMP £0 
BEQ DEP2 



ADC £7 
JSR AFF" 
LDX XP 
LDY YP 



LDA N8PT 
BNE DEP7 
JMP FINNIV 
JMP VERP 



478 DEP3 CPY i 



CPX £2 
BNE DEP5 
LDX £36 



487 DEP3 CPX I 



491 DEP6 LDY > 



JSR SCRN 
CMP £7 
BEO DEPI 

BNE oepi*: 



498 MANGE 

499 MANGE' 

500 MANGE" 



BEO FINMAN 



BNE Bl 

CLC 

ADC SCOR!' 

STA SCDRX 

LDA SCQRA 

520 ADC 10 

521 STA SCORA 

522 LDA SCOR 

523 ADC £0 

524 STA SCOR 
325 CLD 

526 JSR HOME 

327 LDA SCOR 

328 JSR DECA 

529 LDA SCORA 

530 LDX SCORX 

531 JSR DEC 

532 FINMAN DEC NBPT 



STA CHAR 


547 


LDA /CHARS 


548 


STA CHAR»I 


549 M2 


LDX £0 


530 


LDY £0 


551 


LDA (CHAR1 , ■ 


552 


STA <BASL,> ' 


553 M3 


INC BASH 


■i54 DEPM 



CMP £2 
BNE DEPM1 
LDX £36 
STX X 
BNE DEPM4 
CMP £37 
BNE DEPM2 



BNE DEPM4 



699 jChIH' INC IIC 



571 DEPM3 CMP CI 7 



575 DEPM4 LD1 . 



593 




LDA NBPT 


596 




BNE SUITE 


597 




JMP FINN! 


598 


SUITE 


JMP VERF 


599 








DIR? 


JSR SCAN 


601 




LOY NC 


602 




BEO SCANO 


603 




DEY 


604 




BEO UN1C 


6D5 




LDY £0 


606 




LDA RND 


607 




BPL SCANS 


606 




LDY £1 


609 


SCANS 


LDA CH+I .1 


610 




STA DM 


611 




RTS 


612 


UN1C 


LDA CH*1 


613 




STA DM 








615 


SCANO 


LDY DM 


617 




LDA !f*'C,> 
STA DM 


618 




RTS 




1NVC 


HEX 000 30-1 


620 






621 


SCAN 


LDA £0 


622 




STA NC. 


623 




LOY DM 


624 
623 




DEY 

BNE SCAI 


626 
62? 
628 

630 
631 
632 
633 
634 
635 
636 


SCA2 


JSR 3CAN4 

JSR SCAN2 

BNE SCA2 
JSR SCAN1 
JSR SCAN3 
JMP SCAN2 

BNE SCA3 
JSR SCAN2 


637 




JSR SCAN4 


638 




JMP SCAN3 


639 


SCA3 


JSR SCAN3 
JSR SCAN1 


641 




JMP SCAN4 


642 






643 


SCAN) 


LDY YM 


644 




DEY 


645 






646 




LDY XM 


647 




JSR SCRN 


646 




CMP £0 

BEO SCAN! ' 


630 




CMP £7 


651 




BEO SCAN I 


652 




RTS 


653 




INC NC 


654 




LOY NC 



659 SCAN2 LDY > 



JSR DIP'' 


678 




JSR 


SCRN 


LDA XM 


679 




CMP 


£0 


STA X 






BFO 




LDA YM 


681 






£7 


STA V 


682 




BEO 


SCANS 


LDY DM 


683 




RTS 




DEY 


684 


SCANS 


INC 




BNE Ml 


685 




LDf 


NC 


DEC Y 


6S6 




LDA 




JMP DEPM 


6S7 




STA 




DEY 


688 




RTS 




BNE M2 


689 








INC X 


690 


SCAN4 


LDY 




JMP DEPM 


**' 




DEY 






5 VERFF RTS 



723 FINN! LOA £3 



727 VERF3 



826 SCORE 



BNE VERFI 
DEC RES 
BM1 DEBUT 



;r= '.jetpp; 



744 VERF9 JMP IN 



747 LDA t»14 

740 STA *22 

749 JSR HOME 

750 LDA £TEXT1 

751 LDY /TEXT1 

752 JSR STROUT 
733 LDA ST 

754 LDA MODE 

755 BM1 DE8UT4 
754 DEBUTT LDX £0 
757 DEBUT1 LDA £»80 



761 DEX 

762 BNE DEBUT 1 

763 DEBUT4 LDA £0 

764 JMP DEBUT3 

765 DEBUT2 LDA £! 

766 DEBUT3 STA MODE 
76? JMP INIT 

HEX 878787 



ASC 



UNE TOUCHE 866 



BED DEBFIN 
LDA SCOS 
CMP SCORS 
BCC DEB4 
BNE DE85 
LDA SCORA 

BCC DEB4 
BNE DEB5 
LDA SCORX 
CMP MSX 
BCC DEB4 
LDA SCORX 
STA MSX 
LDA SCORA 
STA MSA 
LDA SCOR 
STA SCORS 
JSR TEXT 
LDA £20 
STA «22 
JSR HOME 
LDY /TEXT2 
LDA (TEXTS 
JSR STROUT 
LDA SCOP 
JSR DECA 
LDA SORA 
LDX SCORX 
JSR DEC 
LDY -•'TE-T3 
LDA £ TEXT 3 
JSP STROUT 
LDA SCORS 
JSR DECA 
LDA MSA 
LDX MSX 
JSR DEC 
LDA L22 
STA «23 
LDA £8 
STA *20 



8PL DEB1 
DEC NBPT 
DEC NBPT 



R06 




ADC £7 


807 




JSR AFF 






LDY £3 


309 




STY Y 


HID 




LDA RES 






BEO DEBJ 


612 




STA A 


813 


DEB 2 


LOX £0 



875 TEXT2 ASC ■ SCORE:" 

87fi HEX 00 

877 TEXT3 ASC ■ ME1LLEUR SCORE: 1 



880 TITRE HEX I 01 I I 21 31 41 51 6151 71 31 : 

881 JEU HEX 031111114761111111 

882 HEX 027777772777777777 
8B3 HEX 05731 1115731111711 

884 HEX 077277777727777777 

885 HEX 047273171137311171 

886 HEX 027772777777277777 
807 HEX 0272727347272^2731 
BB8 I 

6B9 SYM1 HEr 0001020506030407 

890 SYM2 HEX 0001020403060507 

691 SYM3 HEX 0001020405040307 



i;<ocooocifiO(>(i[".iiif".i 

r 000000007F0UUDOO 

ijfttiftdft'Ji-X'eO!::!.-*!"'* 
. ijOUOOOOOriJU^iJ'jC'o 

■ ..i.joouooo'.i708i:.£.riF. 

■ oaoBoaoaoroonooo 

(■SfSfiwuSrciUiiC'Oi.M 

•: oooooo i i:.iLi.:oiiou 

■ 001-:-43c3777F7f :E 
( 003E7FOF070F7F?F 
< 003E-F7F77636222 

' 0B3E7F78707S7F3E 

l D041221C0Pl.:0SiE 
( 004021 151FI52I40 







003E0 


31 


i.'t.i';2i-4i 


00014 


934717.344201 


7F010 





IF01010I 


3E414 




4141413E 


41414 


4 


4141 41 3E 


3F414 
63354 


4 

?4 


3F1 12141 
41414141 


3E060 


3080808083E 


01010 




I 1 1 7F 


7F01010 


1F01017F 
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LES ENVAHISSEURS 



Le but de ce jeu est de detruire les envahisseurs. Les 

envahisseurs dans le ciel valent 100 points, ceux dans 

la ville valent 500 points. Bonne Chance!!! 

P.S.: Si vous jouez pour la premiere fois, ne desespe- 

rez pas si vous etes trop souvent abattu. Essayez cette 

metnode: montez en haut et redescendez sous I'enva- 

hisseur. 

Philippe MACOINE 

Une partie de ce jeu est ecrite en langage machine. Pour VIC 20 de 





\|\C2° 



=7e55GOTO60e 



1 REM LES ENVAHISSEURS DE (IRCOINE PHILIPPE 

2 REM PROGRAMME POUR VIC-2e EN VERSION DE BASE" 

3 DOSUB400ne 

9 PR I NT "5T 

10 DRTR173, 89, 27. 170, 183, 9, 31- 157. 8. 31 ,236. 89. 27. 240. 4, 232. 75. 62. 3. 234 

11 DPTR173.89, 27, 170, 173. 90-27, 157, 29, 31. 236. 92, 27, 240, 9, 24, 138. 109, 93, 27, 17S 
.52.3,234 

12 DRTR24, 138, 189,93,27, 170, 173,91,27, 157,23.31.236,94,27,240,3,76,103,3,96 

13 ERTP.255. 219,219,255, 255,219, 219.255 

14 rRTR24,60. 126,255. 125,60,66. 129 

15 DRTR0. 0,0. 0.0, 0,0,0 

16 DRTH0.224, 113,233,255. 113.224,0 

17 DRTR240, 243, 244. 250. 251 , 250. 244,248 
20 F0RZ-826TO89 1 ■ RERDP : P0KEZ , ft ! NEXT 

30 PO<E7081,0POKE7000.240 

31 POKE7002,2 POKE7003.0 POKE7005-22 

32 POKE7006.220 

40 POKE52. 28 POKE56 . 28 P0KE36869 . 255 
50 PRINT"S»IINITIRLISRTIQN1" 
60 FOR I -7208TO7679 i POKE I , PEEKC 1+25600 > 
70 FOR 1-7 1 68TO7207 ■ RERDR : POKE I ■ ft ■ NEXT 
80 F0RZ=?S43l3TCi;3^ PCiPEZ,8-NEXTZ 
90 PRINT"*! 

100 F=7925 :P0KEF,4:P0KEF-1,3 F1=F N=ie 
148 IFPEEK(i37)=55THEHF=F-£'2 

150 IFPEEka97>»63THENF=F*22 

151 IFPEEK(197)»34THENF=F*1 

152 IFP£Eka?7)=33THENF=F-l 
160 IFF<7701THENF=F1 

165 IFF=?944THENF=792-3 

166 IFF>7943THENF=F1 

170 IFFOF1THEHP0KEF1 ■':-! P0KEF1-1 . 32 F1=F 
188 P0KEF.4 POKEF-1,3 
500 RETURN 
600 GOSUB140 
610 fl=IHT'.RHD< \>*\%'*kk POKE7004.fi 

629 SVS826 

630 IFCIHT(RND<1)#4:>>=£THENP0KE7965+R, 1 
6S0 GOSUB2000 

690 IFPEEKMjr^jI-THEMiMiUFl-^tv 
1000 OOTO600 
2000 POKES, 32 

2010 lFKFTHENB-B+21 

2020 IFB>FTHENF=B-23 

2930 IFF=B0PB=F-1THEUB=P-1 GO5UB5000 

2040 POKEB.l 

2100 RETURN 

5000 FOKEB+1.42 

5010 POKE36873.15'P0KE368",29i3 

5020 FORZ=1TO1000 NEXT2 

5021 P0KE36877,U FOF .r^itiTul^itP-l POE36874.. S ■ P0KE36875, J 

5022 IFF:.8163THEN5024 

5023 IFPEEK'F-ll'^HPFEF'- F-v.ll j = :-THEHP0KEF . 32 : P0CEF-1 .32 F=F+22 POKEF, 4 -POKEF-1 
. 3 ! GOTO5025 

5024 GOTO3030 




\m;..^ form- nr^ ne -(■■ ne -:ti 

5030 POKE3687S,0 -POKE 36874 .* POKEJ6S75.0 

5840 R1=FR0KEP1 -J:- iV-jjiJEiSHiOiS P1=F-I F0KEF1.4:: OO'-UKV^'-V-. 

5050 V=V+1. IFV>4THEN30000 

5060 RETURN 

10800 R=F-21 Rl=F+22 

10095 IFPEEK'P'^IOFFEEK' Pi ■=.iOPPEEt- ' F l ' = 1 THEHOUTU20000 

18810 FOKER - 4f. POl'ERl . 34 

l-Z'811 -jCSUPHS 

1.1812 POKER. ::2 P0KEF1 . fL 

1/H13..8 R=R+l.Rl=Rl+22 

18021 FOKE7084. INT'PND' 1 ' + 10 '+22: ^V'S82>- FuKEE .32 : B = B-1 P0KEB, 1 

10030 IFFEEK<R> = 10RPEEK'Pr^i:-iOPPEEI''Fl ^lOFFr sisSTHEWOTnieiWi 

Iw-tO OOTO10010 

20088 IFPEEK(P;. = lTHEitK =V + 10'? POKER, 42:MM=1 

20P10 IFFEEK(Pl) = lTHFNE.r=3C + '50.vPOKER1.42 P1f1= 1 

20015 IFPEEK'Rl '=-8THtHFijlEF1.42:ME=l 

ZmZil P0KE-:6S7S. !■? FOi-E2i6S77,200 

.;0' 7, =O FOPZ=lTO5ti0:HEXT 

28035 POKE36873.0 P0KE36S77.O 

20040 PRlHT'-flaSCOREB-JSC 

20045 IFnM=lTHEHOG3lJE'?0800 MM=? 

2'30'T-? POI ER.32 P0KER1.32 

280^0 POKEF. 32 P0KER1-32 

20070 IFME=1THEMFOKER1.0;ME=0 

2-JI-I'm RETURN 

38888 POKE36863.240 

30001 PRINT'TWIWMCfiME OVER" 

30018 PRIHT"MWECOr£"";SC 

30011 P0KE36878.15F0PN=1T05 

30012 FOPZ=1T02 

3S013 POKE36876.220 FOR:-:=l TO^O :|IE::T-: POKE 36876. 8FGP;.:=lTO'r.0 HEXTX NEXT! 

30014 FORU=1TO590-NEXTW 

30015 NEXTN 

■:.J0 30 PRIHT"MHW«" 

2.10-lM POI El 33-0 

38500 END 

40000 P0KE36879.94 

40100 PRINT-nWMWW-ES ENVRHISSEUPS" 

40110 PRINT'PB'BMIM'rlUTEUR**" 

40120 PRINT'IBFHILIPPE MflCOINE" 

40130 PRINT■'IIO■^'F5'=HRUT■ l 

40146 PRINT ,I I»I'F7-»BRS" 

,!,-,! 50 ^F:lNT"nil3BPflCES=TIR" 

48160 PRINT"»W'Z' = L>fflJ!:.HE' 1 

40170 PRINT ,, »W'C'=DROITE" 

40180 PRINT"Hra>WRES3EZ UHE TOUCHE" 

40190 PRINT"»FOUR CONTINUER" 

40200 GETB»- IFfW-' 1 "THEM40288 

J?>3'? RETURN 

= ,-(0710 P0KE36373 1 c FOPT = I T O20 ' P0KE??-J>- ■ 24'? Ff.PH=lT025 

500 1 P0KE36876 , ■ F0RM= 1 T025 : NEXT : NEXT P0KE36S7S , RETURN 

RERDV. ■ 



GLOBULE 



MZ80 



Lors d'une fausse manipulation au cours d'une expe- 
rience scientifique, vous vous etes transforme en glo- 
bule. Et depuis, vous etes condamne, Globule, a vivre 
ce que vivent les globules: errer sans fin dans de si- 
nueuses arteres. 

Olivier BRIERE 

Vos deplacements: A vers la gauche el D vers la droite. Dans votre 

Siriple. vous rencontrerez ditferents types dindividus: Globules 
ancs a eviter, sinon la parte est terminee. Microbes repoussants 
(• ) si vous les touchez, voire trajecloire est deviee dun cftte ou de 
I'autre d'un ou de 2 espaces. Vitamines. (en torme de coeur) elles 
sont votre source d'energle, II taut toujours conserver un stock au 
dessus de 40, chaque vltamine apporle un lotal de 30. 
II est bien entendu, que vous devez aussi eviter la paroi v 
(celle-ci defile sur 1'ecran. de bas en haut). 



9 G0SUBIB4B 

t G0SU6I73B 

J REnttlGLOBULE*** 

3 «en»*CREE P«« OLIUIER BRIE«E*« 



, 6? :P0KEn+SB3 





7B?ODEPftRT7B7 



I2IB WCU-'TBC* 



123B fl*(23=-'BCB F7 CB7B • 




•i 1 




reJ" 






12^0 fl*C3J-"'BCB * C87B' 




1638 


FORl-noiaBB;NE!'Tl>POKE57352,0 


2848 PRINT' 


BBBBPDUR CONTINUER 


i2se w[-i:--?eca CBM* 




1700 


PRlMT"OlIiaBBIloaflBO8BBHB0HFD;rHt ' "111 


2858 GET N* 






126B M[5)»''BC8 C37B" 








2868 IFH*0 




h 285B 


127B fl«C6)--'BC9 ^3 CB7e , • 








2B7S PRINT 






1280 fl»CB)--'aC8 CB7B 1 ' 




I7!B 


IFGCXI1BTHENG0T0176B 






ianlr»tCF3)C 


128B M(8)-*3aC8 F3 CB78 ' 






pr i nt "mumtM " 








1380 fl*C7)«"?eCB CB7e■' 




174B 


PRINT"H!sl< 'cor* •*' ">U«i" " iGO 


2BBB PRINT' 1 


man* 


- 1. plut pot 


13IB IF M-IIHEM U-3 




I75B 


GCT0I7BB 


2188 PRINT" 






1320 IF MI-21HEN U-7 




1708 


GC-flB 








1350 IFtAB(3B]±[Nl-2)THENF-13 


'60TO1 


1770 


POKE 57352,0: IHPUT'Uotft rom 


2MB PRINT 






4 38 




rs.u 


P.l?"iL*!GOTOI730 








1340 IFCflB< ?a3ttMl-13 TH£flF-l 




1788 


FORl"1TPI^eB:^^EX^:pRINT l, 0'■: 


2128 PRINT" 






GOTO 1438 






GOTO II 28 


21 3B PRINT 






1358 IF OB-2IB TnEN G0SU8 


2180 


1788 


PRlhf'BBBBBaBhlUEflU Cl'2)' " 


2148 PRINT" 


BBD.u 




13B0 IF 08=308 THEM GCSUB 


22BB 


1BBB 


fiSTHI 








1370 IF ftB-SBB THEN B0SU3 


2380 


1810 


IF CNlOn*CNIO2)ThEN1B00 


2158 PRINT- 






13BB S-INT(RMX1}*2) 




1820 


RETURN 


2168 PRINT 




vau H4\t*U 


13S0 1FS-1TMEMF-F-1 




1838 


PR1NT-D" 


2178 RETURN 






I4BB lFS-BThEf*F»FTl 




1840 


PRINT*! P1F1FIFIF1F1F1F1 


2IBB fittll" 


7BC8 


C878■' 


1418 1FF>24 THEhF-F-l 




1830 


PRINT eiGLOBULESFI 


219B fl«(2]- 


70C0 


F7 CB70- 


I42B 1FF<2 THENF-F'2 






PRINT F1FIF1F1FIF1F1F1 






t CB7B- 


I43B U*IHTtRMC1M "I 




1B/0 


PRINT" 




7BCB 


r870 1 


1448 P«INTTfl8CFJ lfl*CUJ 




1080 


PRINT Lors D un. -J. "ot «)cp«rlinc 


2228 m*(5)> 


7BCB 


C870" 


1450 PDKE1B4B7.8 








2230 ftt[6)« 




F3 C870* 


1468 POKen**-4B,0 




:BflB 


PRINT- falwniri^N*. "ou> «<>"• rti 


224B HttBJ- 


70CB 


C87B- 


14?B IF fl8<IITMEH 1520 








2250 P»CB)- 


70CB 


P3 CB70* 


1488 GETflf 






PRINT" '.----!■■;-. *n GLOBULE RDUGE. 


2268 fl«C7)- 






MSB lFfl*-*B J THENG— 1 'XG-53 




1910 


PRINT" 


2270 RETURN 






15BB IFfl*»*D"TMENG"tl !>IQ"53 
15IB lFH*-"TMEhG-B;XG-l34 




1930 


PRINT Pow turulvr. gout Stun "0 


22B0 B*(U- 
2290 M12J- 


'70CB 
"7BCB 


CB7B 1 
F7 C87B- 


1520 X'XfG 




1930 


PRINT" rtan* ur« v\*r* pu\* Han. un 


238B MC31- 


"70C8 


t C878" 


153B 0-[PEEK[f1*>l]) 








2318 04(4)- 




CB70" 


1548 lFD-2e8TMEr<GDTCI7BB 






PRINT" u*in> tinwwa.' 


2328 A*(5)- 




CB7B" 


155B IFrj-87TMENGOTC17eB 




1350 


PRINT" Vo* MIihwii i sauchi '0 


233B P.*(6J- 


'70C8 


E3 CB7B' 


15BB IFO»72 IHENGOTOI7Be 








2348 n*(BJ- 




CB7B- 








PRINT' Oi-oilt 'O 


2358 fl«CB)- 




F3 CB7B- 


1528 1FD-83TMEN0-OT3B 




/' 




2368 n4(71- 


"7BCB 


C87B" 


15BB lFD"lB7tMeN80T01fl4B 




1970 


PRINT" Doni wtn i»»rlpl» «ou* r«n 


2378 RETURN 






153B FGKEri'X, 71 -POKE 5734B.XG 








23B0 P*tll* 




GB7B- 


1600 0-0-2:flB-flB*l 




1988 


PRINT" eanir.r«i dl#f.r«nn indiuid 


233B fl«C21- 


■70CB 


F7 C87B- 


101B [FQ<4eVHENPrjKEntl ,22 








2488 fttO)- 


■78C8 


* C870- 


162B IFa<IIMEMGOTOI60B 




1390 


PRINT-B -jlotoWiM blone. £F7)CUou 


2418 B*C43- 


"7BC8 


CB7B" 


1038 GOTO 1338 








242B M(S)- 


"70C8 


CB7B" 


1648 D-INTCW0C1)**) 




i'080 


PRINT" a.u«* |u tulur ilnon o «»i 


2430 fi«C63- 


"7BCB 


P3 C870- 


1658 1FD-BIHEM X'X-2 








244B mm- 






1668 IFO'IIHEN^-Jl+I 




28IB 


PRINT" lo MH)' 


2458 M(»- 


"70C8 


CB7B' 


1878 GOTOlSSa 


Jiiamlri 


mi 


PRINT -•leroB** r*pou«<orl»[*)" 
PRINT" CIU *ul«nt votr* ii-ajtcio; 


2408 P4C7J- 
247B RETURN 


"78C8 


CB7B" 



D AO 



PC 1500 



Mais oui! Un logiciel de Dessin Assists par Ordinateur, 
sur un ordinateur de poche. Le PC 1500 possede une 
imprimante graphique, pourquoi s'en priver? 
D A O permet d'eflectuer le dessin d'a peu pres n'im- 
porte quel objet en 3 dimensions. II necessite un CE 
150 et une extension memoire. 

Pierre MARCELLIN 

Les instructions: elles ont toutes la meme syntaxe: DATA "chaine 

alphanumerique". parametres. La chafne alphanumerique etant le 

code de I'i instruction. Elles sont au nombre de 7: 

Les instructions de dessin: D, P. C, S, CO. 

Les ruptures de sequence: R, F. 

Nous allons les examiner une par une: 

D:DATA"D",X,Y,Z,T,U,V, trace un segment de droite dont les extre- 

mites ont pour coordonnees (X.Y.Z): (T.U.V), 
P;DATA , 'P",N,A.B I C,D,E.F,G,H.L. Trace un polygone, (en tail une 
ligne brisee fermee, plane ou non) ayant N sommets ou N cotes. 
Ces sommets ayant pour coordonnees: (A.B.C); (D.E.F): (G.H.I);... 
(II doit y avoir 3N + 1 parametres apres P, sinon il y aura une 
erreur dans I'execution). 
Attention: Le programme termine automatiquement I'execution de 
cette instruction enfermant le "polygone", c'est a dire que le dernier 
trait trace se terminera au point de coordonnees (A.B.C). 
C:DATA"C".X,Y,Z.R.A,B r C,D,E,F. trace un cercle de centre (X.Y.Z) 
de rayon R. DAO peut tracer un cercle se trouvant dans n'importe 
quelle position dans I'espace. Pour cela. il est necessaire de 
connaitre le plan dans lequel se trouve ce cercle. Ce plan sera 
determine par 3 points: Le centre du cercle (X.Y.Z) et deux autres 
points de coordonnees (A.B.C) et (D.E.F). 

II suffira done en pratique, de determiner 2 points quelconques du 
plan du cercle. 
Ces deux points ne doivent pas etre alignes avec le centre du cer- 
cle sinon le cercle n'est pas defini (il en existe en fait une infinite). 
Ces 2 points ne doivent pas necessairement appartenir au cercle. 
S:DATA"S' , ,X,Y.Z,R, trace une sphere de centre (X.Y.Z] de rayon R. 

R:DATA"R',M,N.T,A1,A2.A3 At,B.. Tune des instructions la plus 

puissante: repete la ligne "M" N lois en ajoutant aux T premiers 
parametres de la ligne M. les T parametres A1.A2 At. L' addi- 
tion des parametres est effectuee N tois. la suite du dessin se 
poursuil a la liqne DATA n° 3 



CO:DATA"CO",A equivalent a COLOR A. 

F:DATA"F", fin du dessin, le programme revient au menu initial. 
Exemple (dessin n° 1): 

Ligne 3050: DATA "P",4.0,0,0,200,0.0 r 200.200,0.0.20u.0. Dessin 
d'un polygone a 4 sommets de coordonnees; (0,0,0); (200,0,0); 
(200,200,0); (0,200.0) (carre). 

Attention: Dans le cas dune repetition de cercles: les 3 premiers 
parametres de "R" sont ajoutes aux coordonnees du centre, ainsi 
qu'aux coordonnees des points definissant le plan du cercle et 
cela afin d'obtenir des cercles paralleles entre eux. II taudra en 
tenir compte si Ton veul (aire varier fe plan du cercle pendant la 
repetition. 

Utilisation du logiciel: Quand la phase programmation est termi- 
nee, vous pouvez lancer le programme. 

2 choix possibles: "Liste du tichier": sortie sur I'imprimante de 
toute la partie du programme contenant la description du dessin. 
"nessin": lance I'execution. 

Pour indiquer voire choix; appuyer sur ENTER si vous ne voulez 
pas I'option proposee, sur n'importe quelle louche et ENTER si 
vous voulez I'option proposee. 

Si vous avez choisi DESSIN, vous voyez; "ROTATION 
OX.OY.OZ. li est possible de faire tourner lobjet autour de Tun 
des axes; OX.OY ou OZ. (voir exemple II) Si vous voulez faire 
tourner I'objet, entrez le nom de I'axe voulu: OX.OY ou OZ, en 
majuscule et sans espace. Sinon entrez n'importe quoi d'autre. (Si 
vous appuyez sur ENTER seulement, I'ordinateur conserve I'an- 
cienne donnee). 

En cas de rotation. DAO vous demande Tangle de rotation (en 
degres. sens positif correspondant ou sens trigonometrique). 
Apres ceia. le programme commence a calculer I'echelle. 

Atlention: II ne tient compte. ni des cercles. ni des spheres (pour 
des raisons de temps et de place memoire). En general, les droi- 
tes et polygones suffisent pour calculer une echelle convenue. 
DAO ne tient pas compte non plus, des repetitions. Une fois cette 
echelle calculee. DAO vous la soumet. Vous pouvez alors la 
conserver ou la moditier: Appuyez sur ENTER pour obtenir la 
question "Une autre?", repondez Oui ou Non, Si vous avez decide 
de changer d'echelle, il vous taudra alors indiquer aussi la posi- 
tion de I'origine sur le papier. DAO vous precise celle qu'il a cal- 
culee. Enfin, le programme passe a lexecution, il ne reste plus 
qua admirer le resuitat. 



788: FOR C=1T0 Bl: 

READ ACC):NEXT 

C:READ Li 
?S3: "G"REST0RE 01= 

READ fi$ 
?B5: IF flS="D"LET A 

*="DR0ITE 
?B&: IF fl$-"C"LET Pi 

4="CERCL£ 

IF A4=''S''LET ft 

*=" SPHERE 
: jp ftS="P"LET ft 

«-■■ POLYGONE 
:G0SUB A$:|_1=L1 



787: 



-1: 



Li = 



Ri-:.:ORE LI:R* = 
"":GQT0 'TR 

820: GOTO "Q 

830:REf1 ********** 

* ADDITION * 

* PARAMETRES * 

* REPETITION * 
************** 

300: "R£p»F0R Z=XT0 
B1+X-I:8CZ)=@C 
Z)+L1*ACZ-3*<X 
=4>>:NEXT Z: 
RETURN 
1500: REM ******** 

* EXECUTION* 

* DESSIN * 
************ 

1505; " TRACE "SOSUB 
"ROTATION 

1510:RESFORE :K=0 
:R*="":UflIT 
a: PRINT "EXE 
CUT JON": 
GOSUB "ECHEL 
LE":UAIT :LF 
l: GRAPH : 
GLCURSOR (U, 
-U*U):SORGN 
: RESTORE 

1520f "TR"K*K+l: 
READ A* 
jF ft*="D" 
GOSUB "DROIT 
E":GDT0 "TR 

1562: IF A$="P" 

GOSUB "POLYG 
0NE":GOT0 "T 



1540: 



1580: IF A*="C" 

GOSUB "CERCL 
E":G0T0 "TR 
1600: IF A$="S" 

GOSUB "SPHER 
E":GOT0 "TR 
1610: IF AS="R" 

GOTO "REPET1 
TION 
1620: IF A*="F" 

GOTO "MENU 
1630: IF 0S="C0" 
GOSUB "COULE 
UR":G0T0 "TR 

1610:PRINT "ERREU 

R DATA : No" 
;K: INPUT "SU 
ITE DU DESSI 
N ? "JGOTO " 
TR 
1660:GOfO "flENU 
1665: REM 

1200: REM SS-PGT1S 

TRACE 
1205: REM ======== 

1206: REH DROITE 
1207: REM ======== 

1220: "DR01TE"READ 
A, B, C, D,E, Fi 
IF R»="0"LET 
X=l: GOSUB "R 
EP 

1730: "DR"G0SUB C* 
:X=.866*(A-B 

2, Z=.866*(D- 
E>, T=FMD+E> 
'2 
I235JLINE (U*X,U* 
Y)-<U*Z, U*T? 
: GOSUB "XYZ" 
: RETURN 
: RET1 ======== 

REH POLYGONE 
REH ======== 

"POLYGONE" 
READ S, A, B, C 
: IF RS="0" 
LET X=li 
GOSUB "REP 
M=fi, 1-B, J-C 



1B13 

1815 
1820 



:F0R L=2T0 S: 
READ D, E, F: 
IF RS="0"LET 
X=4: GOSUB "R 
EP 

i:GOSUB "DR":ft 
=D, B=E, C=F: 
NEXT L 

r.D=H,E=liF=J: 
GOSUB "DR": 
RETURN 

i:REt1 ======== 

REH sphere: 
REM ======== 

"SFHERE"READ 
ft, B, C,D: IF R 
*="0"LET X=l 
: GOSUB "REP 

i:X=U*.866*(A- 
B), Y=U*(C-s(P 
+BV2>: 
DEGREE 

i: for L--aaro 3 

60STEP 10 
i:A=X->-D*C0S l, 
B=Y*D*SIN L, 
Z=X^D*C0S V.. 
-10), T=Y+D* 



SIN 



-10): 



1737 

1238 
1739 
1740 



1920; 
1948; 



INE CZ*U, T* 
UJ-<A*U, B*U) 
NEXT L: 
RETURN 
REI1 ======== 

REM CERCLE 
REM ======== 

"CERCLE" READ 

A, B, C, D, E, F, 
G, H, I, Jt IF R 
*="0"LET X=l 
: GOSUB "REP 
IF RS="0"FOR 
L=5T0 7:fla> 

=8i:L)^Li*Aa 
-4), a<L+3)=e 

<L^3)+L1*ACL 
-4):NEXT L 
D=ABS D, U1=E 
-ft, U2=F-B,U3 
=6-0 
U1=M-A,U2=I- 

B, U3=J-C 
E=U2*U3-U3*U 



2, F=U3*U1-U1 

*U3, G=U]*U2- 

U1*U2 2325 

1960:U3-4'<;U1*U1*U 

2*U2-^U3*U3)/- 

DjUl--Ul/U3, U 

2-^U2/U3, U3=U 

3/U3 2338 

1380:ui=F*U3-G*U2 

, U2-G*U1-E*U 

3, U3=E*U2-F* 

Ul 2340 

2009:E=-rwi*yi-»U2 2360 

*U2+U3*U3> 2380 

2020:Ul=UlyE*D, U2 2400 

=U2^E*D, U3^U 

3^E*D, P-A, 1 = 

B, J=C 
2040:FOR L-10TO 3 2420 

60STEP 10 
2060:A=H,+U1*COS ( 

L-11)*U1*S1N 

a-l!> 2440 
2080:B"I+U2*COS < 2450 

L-1I)+U2*SIN 2460 

<L-M) 2480 
2100:C=J+U3*COS < 

L-11)+U3*SJN 

<L-11) 
2120:D=H+U1*COS L 2500 

+UJ*SIN L 
2140:E=I+U2*COS L 

+U2*SIN L 
2J60:F=J+U3*COS L 2510 

*U3*SIN L 2520 
2180:GOSUB "DR": 2540 

NEXT L: 

RETURN 
2190:R£M ======== 

2193: REM COULEUR Z5eB 
21 96: REM **«**«* 

2200: "COULEUR" 

READ ft: COLOR 2520 

ft: RETURN 2575 

2250:REf1 ======== 

2255:REM ROTATION 2580: 
2256: REM ******** 

* ROTATION 
*********** 25901 

**** 
2320: "ROTATION" 

INPUT "Roiat 3000: 



ion OX, OY, OZ 

";C* 
IF C*O"0X" 
AND CS<)"0Y" 
AND C*<>'0Z" 
LET C4^"0": 
RETURN 
INPUT "Angle 

(degres) "; 
W:D«=STR* 14! 
DEGREE 
"01 "RETURN 

REM 

,T 0X"Y=UAL 0* 
"0X1 "X=B*COS 
Y-C*SIN Y, C= 
B*S1N Y+C* 
COS Y, 8=X 
X^E*C0S r-F* 
SIN Y, F=E* 
SIN Y+F*C0S 
v, C=X 
"0"RETURN 

REM 

■0Y"Y=UAL D* 
"OYr'X-A*C0S 
Y+C*S1N Y, C-= 
-0*SIN Y+C« 
COS Y, A=X 
X^-D*C0S Y+F* 
SIN Y,F=-D* 
SIN Y-*F*CDS 
Y, D=X:RETURN 

REM — — 

"02"Y^UAL D* 
-OFl-X=fifC0S 
Y-B*SIN Y, B^= 
A*S1N Y-^B* 
COS Y, A-X 
X=D*C0S Y-E* 
SIN Y, E=D* 
SIN Y+E*COS 
Y, 0=X: RETURN 

REn 

REM ROTATION 

INUERSE 
"XYZ"Y=-UAL 
D*:G0T0 C*+" 
1 

REM ******** 
* FiCHIER * 
************ 
"FICHIER 




Pos i t i on 




SOLUTION DE L'HIPPOREBUS : 
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FOR 1=1 
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NEXT I 
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\^ Suite de la page 1 

Page pedagogique 44 % + 27 % 

Soft Parade 55 % + 30 % 

Logiciel de la semaine 

57 % + 29 % 

Petites annonces 45 % + 39 % 

Annonce materiel 62 % + 27 % 

Mise en page 63 % + 29 % 

Format du journal 62 % + 27 % 

Dans I'ensemble, vous etes satis- 
fails des ditferentes rubriques et 
nous sommes ravis de vos repon- 
ses. L'hipporebus, la page peda- 
gogique et les petites annonces 
vous satistont un peu moins et 
nous allons travailler pour les 



ameliorer. La rubrique "Annonce 
de nouveautes" a I'air de beau- 
coup vous interesser alors que 
nous n'en passons que rarement: 
nous atlons creer une rubrique 
reguliere. 

Enfin, a la question "quelles rubri- 
ques rajouter a I'Hebdo?" vous 
ne voulez pas de formation au 
basic ni d'autres rubriques en 
parliculier sauf une formation a 
lassembleur el vous etes 60 % a 
la demander! Message re^u: 
nous commencerons cette rubri- 
que des Octobre. 

Gerard CECCALDI 



^Af Suite de la page 13 

3260 CALL COLORdtA, A+3; 

3270 NEXT A 

3280 COLL CLEAR : : FOR 



HELICO 



II, 1>; 



I 



3300 DISPLAV 0T(4,I>;''LE JEU CDNSrSTE A 
RECUFERER": :"TROIS ALPTNISTES BLOCUES P 
AR": : "LE MAUVA1S TEMPS Enl ALTITUDE": :" 
LE PILOTAGE N'EST PAS FACILE" 
3310 DISPLAY ATI 12, 1 ) : "CAR L 'HELICOPTERS 
POSSEDE": :"UNE CEFVTAINE INERTIE DE PLU 
S": :"LA F10NTAQNE EST PL E INE DE": : "PIEG 

es. utilise; la manette i" 

3340 DISPLAY AT (23. 1 ) : "RELEVEZ ALPHA LO 
CK* ENTER" 1 

3350 CALL KEYIO.I ,S):: IF S-0 THEN 3350 
3560 CALL CLEAR 

1 : : CALL COLOR (» I, 1+2) 



: : NEXT I 

3380 FOR 1=1 TO 100 : 



I i 



OVNIS 



Un jeu d'action. rapide et structure, transformez votre 
TRS en laser spatial... 

J. Christophe PELLETIER 

Mode d'emploi: 

Apres avoir charge le programme, le litre apparait. Vous disposez 
de 5 vaisseaux pour abatlre le plus possible d'OVNIS avec 30 mis- 
siles. Pour deplacer votre vaisseau on utilise les 2 (leches el pour 
ttrer, on appuie sur la barre d'espace. Votre vaisseau peut etre de- 
truit de 2 f aeons: 

-Vous pouvez etre atteint par une bombe longue portee, lachee par 
I'OVNI. 

-Si vous n'avez plus de carburanl. 

La partie est linie lorsque vos 5 vaisseaux ont ete detruits ou si 
vous avez utilise vos 30 missiles. 

II y a 3 OVNIS differenls volant a lour de role, lis valent 100 points 
saut le petit qui fait gagner 150 points. 



1 REM************************* ************************* 
£ REH* O.V.N. 1.3 * 

3 REH* Sur TRS mod. 1 et 3 Pir J-CH. Petletier * 

J REM*********) 1 1**1*1 II 4.nt4JJ >■*****»***************** 
5 DEFINTH-Z CLE8R100 
IB CLS 

12 F0RI = 15Seui0i5r4:-: PLir'EI ■ 131 ■ NEXTI 

13 FQRI-16000TO16.363 POKEI . 131 NEXTI 

15 H»<1 >«CHRV 1 76 .>+CHK*<. 1 4U ;*C-HRK 176) fl«(2)-CHR«<. 1' 
«CHR»(15£>+CHR»'. 13l)*CHR*<164> 
.= i.i-lhri: s>; .-in?*. ,ss .-chp*' ire, 

17 &«=STRING«<3,32> 

18 B1«-CHR«'.3£> 
£0 GOSUBIB00 

21 cls nn=3av.5 j=i 

zz F0RG=648TQ793'PRJHT«o,"»-] next 

23 PSiMiri!i't>0.-"FoiotS'"> 

£4 GOSUB500 

£5 PC=606PRIN7ePO,C», 

3S GOSUB110 

35 GQSUB2-00 

40 GO TO 3C 

109 REM ********** DiPUwicnt OVNI ********** 

lie REHDF'IFP=384THENREST0PE GQSUB450ELSEPRINTeP,fl«< 

115 FORI=0TO5 

116 IFC=1THENGQSU8310 
11? NEXTI 
120 PRINTGP,B*> 

124 REM ********** Tir OVHI ********** 

125 F0RPl=P*6eT0e39STEP64PRIHTePl.CHR»'. 133>j 
1£6 PRINTeP.HI'J), F0RI»8r03 
127 IPC=; 




>*CHR*( 153 >*CHR*v 1 32 j 



TRS 80 



. IFP-384THENRESTQRE G<:'lvS45t 



128 .-.£*: T 

125 F>:inTep,e*,ePi,Bi*i 

130 iPP0>-Pl-SBt«P0<-PI*3THEN144; 

135 GQSUB538 

140 NEXTP1 

14-i REH *********| Explosion de la &oi*toe ou ou vaisseau ********** 

145 PRINT!5Pl-63.STRING« 10.136 '.■ FORT=07O20 NEXT! PRINTePI-6?. STRINGS, ie, - "... 

,46 PRitfTeP0-5,CHR«i29)+CHRfK 13£.i+CHft»<. iSB^+STRtrtG* 2- ^j*CHP.*< 144 J+LHftK 13S^*C 

„rs. ijc." ■FaF::-ijv_,2uG srE/.n pfin-k-fo-5- " ■■■?-'.',:*■ v=-: :FWTHtt:.;c*viLi 

i4S GOSUB500 
150 RETURN 

139 fttri *m»ai« Instruction* Vimmu .********* 

20" :=PEEK', I440BJ 

J: »(J :FSaj^THtrC;=-i 1OT3230 

220 IFS=64THENZZ*2 G0T0230 

2-.; iii-.jiiiHtM.-i mm-.mm-i 6.<jnj325i£LiEFi:TijPh 

..... [:■, r, ..■..■:i-,liri! J fi-M..:tHl4.;. vj _ L' u u. . i <:./_', LI i_n =<..£:3£I0 R£ 7 : ■i-- il 

223 K^r'T iJltlCtUI tepl3Cfl*,rt . ; lr rj" ...ji.tjji, *******.4."l 

23e PRiMTepo.e*. fu=po+.;:' iff-c- ■■>:■(. 7KEtipr.=sr--. 

,L... .FF'.i 637THENP0-63? 

t '3^ PP.MTiiPO.C*. RETURN 

300 FM-PO-63 IFKM =07HE;rr-.E' : JPN 

3,13 Pr:::ir'iPM.CHP»(133Ji 

311 IFPI1 = i''»PM-F+l':^PM^rHl-7MLfi J :.':.L.L^..-..- =E"jFn 

312 PB-Pfl-M iFPM<0THENC-0 
315 PRINT8Pt1*S4,Bl»; 

320 RETURN 

Ji-3 SE.1 fH»t*i«.t [>estruction OVNIS ********** 

4L«) .'i-'ii:, :-.--', :,HKS- is;- .+r.hSl- i36.-t-CHRV 144 .+ CHR*( 1 60 .■<**»<: 1 32 ■i-CHF* 130 ,+ruRJ. ,,■,: . 

+i7Ril(L*.. 7,24 i+Ulf'li. 136 j* CMP*.. 144 .*CHP.*' 1 j2 -ChR* 169/. FOPT « T ij 1 >j0 MEITr 

41B PRINTER. '■;pini.v 6,3E/+i:hr». 26 ■<-il Pirn;*' r ■ 34 •-;.-• pn«3V 4,32 >. 

415 C=0 RESTORE GOSUB450 

416 IFj-3THErlr.-k+150SLS£k=F-t-lO9 

417 PRiNTe300,"Pointi'">Kj 

418 GOSUB500 
420 RETURN 

«ffl J-J+I iFJ-4TNENJ=l 

499 REM ********** c«rbur*nt ********** 

500 FORx=eroiar ■ set< k,3b>- next 

510 RETURN 

550 x-X-i 'iF>:--=-ijint!iL4..-,E!.ir;RESET- :■:■■&.• 

560 RETURN 

593 REM ********** Tlti-e ********** 

.WC' ."■>.._, =3 TO 102 

1010 REftoP^PRINTeP.flX 1 )> 

1040 PRINT5466." . V . N . I . S"> 

1050 PR!NTfcP,B«-j 

1060 FORT=eTO20'NEXTT'NE!<T 

1050 RESTORE 

1100 RETURN 

9399 REM ********** Po»itlor* OVNIS ********** 

1000? [..rtfpii 3,63, 132,i?;.,26L<. 325, 327, 264, 266, 331, 396, 333,335, 272.274 

i-Ji'iO l'I'm!i.j.'6 373, 2:30- 21 7, 219, 221, 266,350, 414. 478, 480, 432. 484. 431 423. 360. 362. J6 

J255.257.36I-J, 363. -126, 428, 493. 495, 432, 4j4, j 36, 501, 438.- 440, 566, 563, 570. 507, 503 

10020 DRTR61, 59, 37, 120. 118- 181, £43, 243, 173, 176, 174. 11 1,109, 173, 236.2 3^,2 12. 295 3 

56, 422. -lif, -12 1,-1 19., 417. 352. 287, 265,293, 218, 21 6, 21 4, 277 3-10 338.336.2/1 ,263,26r.j 

30,393,437.334,331,266,264,262,323.323,321,384 

15933 REM ********** FIN ********** 

£0008 PRIHT85ee-"Pour reJouar t»Per »ur < ENTER >-jR460,"G A M E V E R'i'FORT 

-;ro2'j.:i hextt -:osuiS2i)oia^PRiMTateo, ■■ -, . fost= i t^oo i;e t GOTOEaeo 

e 

20010 3-P£EK< 14400^ 

20020 IFS=1TMEN£1 

20030 RETURN 

:J3,'j REM ** HON , LE TRS N'EST PfiS MORT . HLORS ENVOYEZ VOS JEUX b' ACT IONS , VO 

U5 flUSSI , QU'ON S'fiMUSE UN PEU F 




SOUS-MARIN 



Votre but: retrouver les coordonnees tridimensionnelles 
d'un sous-marin en un minimum d'essais. 
Mode d'emploi dans le programme. 

Alain LAFFARGUE 
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HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 

PRENOM : 

ADRESSE: 

REGLEMENT JOINT : D CHEQUE DCCP 



MATERIEL UTILISE: 
CONSOLE: 
PERIPHERIQUES : 



LE LOGICIEL 
DE LA SEMAINE 



LES AVENTURES EPERICOLU SOSPOHGERSIQUES 
de MICHE et MICHA 

CHINESE JUGGLER de OCEAN 

sur COMMODORE 64 



On esl cense laire un essai se- 
rieux de logiciel. C'est CHINESE 
JUGGLER Mais MICHA s'em- 
pare soudain frenetiquement du 
joystick alors qu'il a declare 
moins de deux minutes aupara- 
vant qu'il n'avait pas que ca a 
(aire, qu'il avail du travail et qui! 
laliail qu'il eludie les moycns de 
se faire reformer. Nonobstanl 
(burp), il est en train de ramas- 
ser des assiettes pour les faire 
tourner au bout dun baton. 
C'est pas serieux. Ah. il sen 
va...A moi le joystick. 
Impossible de jouer une parlie 
Iranquille. . Des que je tourne le 
dos, Miche en profite pour de- 
goiser n'importe quoi sur mon 
compte. En attendant, qui fail 
voltiger les assiettes (liens, oiles 
changent de couieur), hein? 
Sacre jongleur, ce Miche, il a 
goute au Sake avant de rentrer 
sur scene. Visiblement. ses re- 
Ilexes son! emousses; deux mi- 
nutes qu'il essaie de faire lour- 






ces 



simultanement, deux minules 
qu'il ramasse les debris par 
lerre. 

Et paf; je vais chercher un cafe 
(dont |'ai bien besom) et cette 
honorable vermiceau de Mien a 
en profite pour me retaxer le 
joystick, Et derechef se paye un 
bonus de 5' 2110 car, expli- 
quons-nous. 2110 est le temps 



restant a jouer. (3000 au depart) 
et 5 je ne sais pas. Ca a lair 
d'etre au pif. Je vais profiler qu'il 
nest pas en train de me dever- 
ser ses inepties, pour vous ex- 
pliquer en detail le but du jeu et 
son deroulement Ca sera bien 
la premiere fois que vous aurez 
un mode d'emploi serieux dans 
cette run que. Alors. vous etes 
un jongleur chinois, et vous 
devez alter ramasser des assiet- 
tes pour les faire toumoyer au 
bout dun baton Bon. Et puis, 
au bout d un moment, les assiet- 
tes com me nee n I a toumoyer 
moins vile et il laui alter remuer 
le baton. Quelque chose ne va 
pas, Ca me demange. Une fois 
toules les 8 assiettes piacees, 
nouveau tableau; la couieur des 
assiettes (ca va mat!) est impo- 
see. Si votre assiette nest pas 
de la bonne couieur. vous pou- 
vez tourner autour de vous.et 
vous avez une chance sur deux 
pour quelle change de couieur. 
mais elle peul aussi devenir 
noire el Filler (quel stress!) val- 
dinguer dans les 

decors... Je...Arthhh,.,.Beurk 
beurp skloch skloch shhploff 
Victime de son serieux, Miche 
est mort. Micha reprend le flam- 
beau, echaude. II na pas linlen- 
lion de se faire avoir par le 
Grand Esprit Straight qui frappe 
durement ceux qui n'y prennent 



Victime dun accident du travail. 

apres avoir recu 7 assiettes sur 

le me me pied. Miche a ete 

transports d' urge nee a I'hosto. 

On me demande d'aller recon- 

naitre le corps. 

Auparavant (chinois), je signale 

a nos aimables lecteurs que le 

miserable score realise par 

I'humble Micha esl la cause 

reelle de la disaffection de son 

regrette partenaire el neanmoins 

frere. 

Score 81340, 

Quand meme. 

Miche et Micha 




PETITES ANNONCES 
GRATUITES 



HEBDOGICIEL recrute 
UN JOURNALISTE DEBUTANT 

Pour prendre en charge une nouvelle rubnque du journal. Cette 
activite permanenle el ennchissanie demande: 
-Aptitudes ce names a la redaction 
-Contacts hu mains aises 
-Sens de l' organisation 

De plus, le candidal connaitra padaitement la micro- inform all que 
grand public et la programmation en basic sur au moms un ordi- 
nal eur. 

L'experience professionnelle n esl pas necessaire Le candidal. 
Homme ou Femme. devra smtegrer a une equipe dont la 
moyenne d age est de 25 ans. 

Ecrire au journal sous la reference: "ANNONCE J GC" en joi- 
gnanl une pholo el le niveau de remuneration souhaitee. 



VENDS PC 1245 + etui et ma- 
nuel : 500 F, Monsieur HARDY 
Allee des Foreurs 21 residence 
le Bocage 33400 TALE NCE 

VENDS Tl 99 4A - cables K7 + 
manettes de jeu * Tl Invaders 
* Indoor Soccer - nombreux 
programmes Ingvar VAN 
DROOGENBROCK BRUSSEL- 
SESTEENWEG 86 1700 ASSE 
BELGIQUE, 

VENDS TI994A + Magneto 
TEXAS + joystick + modules 
Parsec + Munchman + K7 
Basic ■* 3 K7 programmes + 3 
numeros de "99 Magazine". Le 
tout sous garantie et dans em- 
ballage d'origine : 2000 F. Pa- 
trick VOL TO 3 allee de Quebec 
33600 PESSAC Tel; (56) 36 55 
51 (apres 18 H). 

VENDS pour Tl 99 4A carte ex- 
tension memoire 32 K (valeur 
1200 F.) vendu 1000 F. + Une 
disquette "aide a la programma- 
tion II" (valeurs 210 F.) vendu 
180 F. Didier GALLE JASSE- 
RON 01250 CEYZERIAT 

ACHETE pour TI99/4A carle 
controleur + boitier d'extension 
peripherique PHP 1200. Thierry 
BEGUIN 8 rue Henri Dunant 
73100 AIX LES BAINS. Tel: (79) 
35 63 88. 



VENDS pour TI99 4A neufs et 
sous emballage d'origine Mo- 
dule Mini memoire - livre initia- 
tion au langage assembleur : 
800 F. Module Adventure • K7 
pirate Adventure : 150 F. Mon- 
sieur BERMOND Tel: 583 16 86 
(le soir). 

VENDS SPECTRUM 48K Pentei 
+ manettes et interface - mo- 
dulateur N B * Panique - An- 
droide - Othello * Ectiecs + 
Manager ♦ Mined oui - jeu 
aventure (vaieur 3600 F.) vendu 
3000 F. le toul * Brochures. 
Monsieur FERAUGE Tel: (56) 
80 36 39 (de9 Ha 17H30). 

VENDS ORIC 1 48K (1 84) Pal 
Peritel * Manuel + lil Peritel + 
alimentation Peritel et Oric + 10 
programmes sur K7, (valeur + 
3000 F.) Vendu 2000 F, Servais 
MAUSS 13 rue de Trieux 54150 
AVRIL Tel: (8) 246 30 90. 

VENDS T0 7' Extension 16K 
(valeurs au 2<84 3150 F.) vendu 
2500 F. Tel 844 38 29 (heures 
bureau) ou 840 95 86 (apres 20 



H). 

VENDS pour ZX 81 Interface, 
manettes de jeu : 200 F. Serge 
LASGOUTE Residence Floralies 
A! 83300 DRAGUIGNAN Tel: 
(94) 84 25 36. 



VENDS CANON X 07 (SK> + 
Imprimante X710 + Carte 4K 
XM 100 + cable K7 + adapta- 
teurs secteur + manuels +■ 2 
livres + programmes logislick : 
Banque. Fichiers. Graphe * 
jeux. Le tout sous garantie el 
emballage d'origine : 3500 F. 
Pour DRAGON 32 : K7 pro- 
grammes Donkey Kong. Scraf- 
man. Fichers 200 F. le 

tOut.Alain MEYER 45 rue 
Claude bernard 75005 PARIS. 

VENDS TI994A Peritel * Ma- 
gneto TEXAS - Joystick + 
cables * modules Parsec et 
Munchman * K7 Basic par soi- 
meme et 3 divers * 3 numeros 
de "99 Magazine", le tout sous 
garantie et dans emballage 
d'origine; 200 F. Patrick VOLTO 
3 allee de Quebec 33600 PES- 
SAC. Tel: (56) 36 55 51 (apres 
16H). 

VENDS pour TI994A modules: 
Car Wacs: 130 F. + Chisholm 
Trail: 130 F. + Tombstone Cily: 
130 F, * Jungle Hunt: 340 F. 
Demander Patrick au (6) 452 56 
06. 

Pour TI994A VENDS module 
Basic Etendu t Manuel anglais: 
600 F. ou ECHANGE centre 
mini memoire Manuel francais 
Ecrtre a Roger DAVID Les 
Auches 04240 ANNOT. 
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DISPONIBLE: EXTENDED BASIC USA 

AVEC MANUEL FRANCAIS 900 F 

♦ A? — //-*• /ami 





Deux plus s 

Pour votre Tl 99/4 A une 

extension memoire 32 K Ram 

exterleure. 

Vous allez alnsl, avec 48 K. 

realiser des programmes plus 

performan ts. 

Un Interface parallele type 

Centronics vous permet de 

connecter des Imprlmantes 

comme Epson ou Seikoscha. 



BON DE COMMANDS 
TARIFS SEPTEMBRE 1984 

... m - 

Code Postal 

Ces pm sont indtcatits et pawra elre modifies sans 

Fioduns disponiOles dans M iimite de nos itocks en 

magastn 

Partxipauon .w Iran de pot et d expedition en re- 

commande pour les logtcieis * 30 F. 

IA #£GIE A CAICUL 

65.67 Pd S,vnr-Gerrrwn. 75005 RW8 

Tel. 32S688B- Telex ETMV 220064m 303 /MC 

Ltvralson det piodults dlsponlblct sous Bjoun. 



